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** ABOUT MICRO-80 ** 
EDITOR: Ian Oagg 

ASSOCIATE EDITORS: Peter Hartley, Eddy Paay. 

MICRO-80 is the only Australian monthly magazine devoted entirely to the Tandy 
TRS-8B microcomputer and the Dick Smith System 80. It is available by 
subscription. $24.00 for 12 months or by mail order at S2.50 per copy. A 
cassette containing all the programs in each month's issue is available -for an 
additional S3. 50 or a combined annual subscription to both magazine and 
cassette, is available -for S60.B0. Special bulk purchase rates are also 
available to computer shops etc. Please use the form in this issue to order 
your copy or subscription. 

The purpose of MICRO-80 is to publ ish software and other information to help 

uou qet the most from your TRS-80 or System 80 and their peripherals. 

MICRO-80 is in no way connected with either the Tandy or Dick Smith * * 
organ is at ions . 

** WE WILL BUY YOUR PROGRAM ** 

Most of the information we publ ish is provided by our readers, to whom we pay 

royalties. An appl ication form containing full details of how you can use 

your TRS-80 or System 80 to earn some extra income is included in every issue. 

*•» CONTENT ** 

Each month we publish at least one applications program in Level 1 BASIC, one 
in Level 2 BASIC and one in DISK BASIC (or disk compatible Level 2). We also 
publish Utility programs in Level 2 BASIC and Machine Language. At least 
every second issue has an article on hardware modifications or a 
constructional article for a useful peripheral. In addition, we run articles 
on programming techniques both in Assembly Language and BASIC and we print 
letters to the Editor and new'product reviews. 

** ADVERTISING ** 

We accept camera ready copy for display advertising at the following rates: 

- FULL PAGE (19cm. wide x 24cm. high) S50.00 

- 1/2 PAGE (18cm. wide x 12cm. high) S30.00 
Classified advertisements are S5.00 for up to 50 words. Advertisements must 
be submitted by the 23rd of each month in order to appear in the fol lowing 
month's issue. A Company Order or payment must be included with the 
advertisement. 

** COPYRIGHT ** 

All the material publ ished in this magazine is under copyright. That means 
that you must not copy it, except for your own use. This appl ies to 
photocopying the magazine itself or making copies of programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we 
do our utmost to ensure that they function as described. However, no 
liability can be accepted for the failure of any program or other article to 
function satisfactorily or for any consequential damages arising from their 
use for any purpose whatsoever. 
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-=* EDITORIAL *=- 

If this is your f isrt copy of MICRO-80, "Welcome*. We hope that you will 
enjoy reading our magazine, and that it will help you to get the most out of 
your TRS-80 or System 80. MICRO -80 is unique amongst Australian Magazines. 
To start with, it is written for a relatively small audience, those 6200 odd 
people who own TRS-80' s and System 80' s . Next, of course, most of the 
articles and programs published are written by our own readers, who receive 
a royalty payment in return. Finally, we believe that we are the most 
interactive technical magazine in existence. We react to readers' requests 
for articles; we publish readers' letters virtually in full, and we give 
meaningful answers. If you don't read the Letters to the Editor 
(Input/Output), then you are certainly missing out on a great deal of 
valuable advice and information. 

Associated with MICRO-80 is MICRO-80 PRODUCTS, which publishes software on 
cassette and disk, and designs and manufactures hardware for '80 users. You 
will see MICRO-80 PRODUCTS' advertisements in each edition of MICRO-80, as 
well as in the technical press such as ETI. The software published by 
MICRO-80 PRODUCTS has all been written by readers of MICRO-80, who receive 
d5% of the gross sales of their programs as a royalty payment. 22.5*i of 
sales is set aside for advertising and promotion, ensuring that most '80 
users will quickly become aware of our readers' efforts. If you have 
written a program which you consider worthy of pub! ication by M1CRO-00 or by 
MICRO-80 PRODUCTS, send it in, together with the APPLICATION FORM which 
aopears in every issue of MICRO-80. After oil, you have nothing to lose 
except for the return postage, and you could earn yourself a lot of cash. 

*=*=*= SCOOP =»=*=* 

** DICK SMITH ELECTRONICS - SYSTEM 88 

The first 100 of the long-awaited System 80' s were quietly landed at Sydney 
Airport on May 1st. By now there should be quite a few proud new owners 
learning all about their new machines. We believe that there are at least 
500 firm orders for the System 80, and if it is as good as it sounds, then 
there should be a lot more than that sold in the very near future. 

We extend our congratulations to the Dick Smith organisation for persevering 
with this project for so long. We understand that it took nearly 18 months 
to clear the licensing arrangements for the Microsoft BASIC interpreter, 
alone. 

It is our belief that the increased competition within the Austalian 
market-place can only be of benefit to us all. Perhaps, now, Tandy's prices 
will come more into line with their U.S: prices (a Level I 4K machine costs 
$499 + sales tax (typically 6*i) in America). 

Needless to say, MICRO-80 will support the System 80 as well as the TRS-80. 
** BETTER DISTRIBUTION FOR MICRO-80 AND MICRO-80 PRODUCTS 

We have arranged for MICRO-80 to be sold from several selected retail 
outlets. 

Dick Smith Electronics have taken a trial order of the April Edition for 
their Sydney outlets 

Also in Sydney, CISA (Complete Information Systems of Australia) mill stock 
each issue of MICRO-80, and will also sell MICRO-88 PRODUCTS software. CISA 
is at 159 Kent Street, opposite the IBM building, and specialises in 
products for the TRS-80. 
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In Brisbane, RYMRC SOFTWRRE of 2 Balanda Street, Jindalee, will be stocking 

M1CRO-80. Garry McKenzie, of RYMftC, is an ex Tandy Computer Centre Manager, 

who specialises in developing custom software for TRS-80' s in business 

app 1 i cat i ons . 

Over the next few months, we look forward to announcing a number of 
additional stockists of both MICRO-80 and MICRO-80 PRODUCTS software. 

** OUR FREE SOFTWRRE OFFER ** 



a 



Emblazoned across the cover o-f this issue, is the first announcement of 
free software cassette to be given to al I new subscribers. The purpose of 
this offer is to boost our circulation to >2808 by the end of 1980. The 
cassette contains o selection of programs that we have published over our 
first six months. These are:- 

Leuel 1 

Hangman Feb ' 80 

Super Mastermind Dec '79 

Ricochet Jan '80 

Level 11 

Household Recounts May '80 

Snake Dec ' 7S 

Rnalogue Clock Mar '80 

If any of our existing SUBSCRIBERS would 1 ike a FREE copy of this cassette, 
just send us a smal 1 se I f -addressed padded post-bag with a 28c stamp on it, 
and we will send the cassette by return 

** MEW PRODUCT NEWS 

Last month we promised to give you information about an unnamed "accessory 
for your '80 that you wouldn't want to be without". Well, we've got TWO of 
them! 

The first part of our Big News is that M1CRO-B0 PRODUCTS intends to be 
handle the E'XRTRON STRINGY FLOPPY. This is a high-speed sub-miniature 
cassette, especially designed to add-on to the TRS-80. The unit uses 
specially constructed cassettes (so small that they are called "wafers") 
holding an endless loop of digital tape. The wafers come in 10, 20, and 50 
foot sizes, holding 8, 16 and 32K of data respectively. You can put 
multiple files on one wafer, and 1BK on a 28 foot wafer LORDS IN 24 SECONDS. 
Minimum operating system" is 4K, and no expansion interface is required to 
use the unit, which is entirely software controlled. We have had a unit 
under extensive test for eight weeks now, and cannot get it to do anything 
wrong! We will be demonstrating this amazing device at the Sydney Computing 
Show, and, hopefully, taking orders. 

The other Big News is that Peter Hartley has developed a real live 
al 1 -singing-al 1 -danc ing TRS-88 JOYSTICK, which is fully addressable from 
BRS1C, and works with any sized Level II machine. Interfacing is a breeze, 
and the unit is powered from the '80 itself. Rl 1 you games lovers will be 
after this one, we know. Rs we go to press, the price of this unit has not 
been finalised, but it will certainly be well under S60. We are again 
hoping to have a sample at the Sydney show, and will be taking pre-release 
orders on a small deposit. 

-=0OO=- 



ISSUE 6 (MRY 1980) 



MICRO- 80 



PAGE 4 



-=*** NEXT MONTH' S ISSUE ***=- 
The June issue of MICRO-80 will contain at least the f ol 1 ol owing. . . 



LUNflLERT (LI) 



BEETHOUEH' S 
HELPER (LI) 



RLCOTESCHT (LID 



TRPE BLOCKER (LID 



RCEY DUCEV (LID 



GRAF IX (LID 



ASSEMBLY LRNGURGE 



LEVEL I + II 



CHESS WRR (part 1) 



CRSINO GAMES 



EBUCRTIOHRL 
PROGRRMS 



R first class you- I and- i t-on-the-moon type of 
game with fascinating graphics, and a program 
that really applys the laws of physics. 



R must for all you would-be composers out there 
in Level I land. This aid creates all the chords 
you' II ewer need, at the touch of a keypad. 

R spoof program that will convince your 

one-over -the -e ight friends to catch a cab 

and 1 eave their car-keys with you ' til 1 morning. 

Set up as an inventory package, this program 
demonstrates the efficient way to use your 
cassette for data storage and retrieval . 

R gamblers del ight, brought to your UDU 
from the pages of MICRO-80. Fun for al 1 who 
like an occasional flutter - even with matches. 

In machine language, one of the fastest 

and most fastinating kal idascope-type programs 

you' I 1 ever see. 

The next instalment of Eddy Paay' s brilliant 
series - not to be missed. 

How to run both Leve.1 I and Level II in 

a single TRS-80! Flick the switch and its 

dumb aga in ! 

fl comparative review of two of the competing 
'80 compatible Chess Programs - by a Chess Expert. 
We are certain that this uiill start a debate that 
wil I rage for months. 

R gamblers overview of a currently available 
Casino Games package. 



The first in a series on the needs of our 
students, and how to meet them in YOUR programs. 



The June issue will also contain all the regular features, such as BETTER 
BYTES, PROBLEM CORNER, INPUT/OUTPUT (readers' letters), and news of the 
latest releases from MICRO-80 PRODUCTS. Why run the risk of missing out. 
Take out a subscription today - there's an order form in every issue. 



3 I1n> 

■ 
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** BETTER BYTES ** a potpourri of this and that, conducted by Peter Hartley 

(Readers' contributions are sought for this column.) 

If you' we been haying problems trying any hardware modifications (except 
those published in MICRO-88. of course) and get the impression that the 
published circuits in the Tandy Technical Manual are not about your 
TRS-80. . . wel I , you are probably quite right. It appears that the Mud Map 
is for the ft series circuit boards only, and there haye been at least a D 
series and a G series since, plus the current production - with the new 
keyboard, which is redesigned around the ROM sockets. 1 haven't been able 
to get an opportunity to rip into of one of these latest ones yet, so I 
don't know what board designation they carry. Some modifications that work 
fine with one series of boards will just stop another unit from working at 
all, as I found when trying to retro-fit a Level I ROM into my G hoard, with 
provision for running as Level I OR Level II at the flick of a switch. We 
know how to do this on an ft or a D board, and although I finally got mine to 
run, we will be testing this version for a few weeks before publishing. fts 
you will have seen from the "In Next Month's Issue" column, we ar° quite 
satisfied with the ft and D board modification at this stage. 

The board number is found at the back in the center," when you take off the 
top cover, on the opposite side from the power supply transistors (the big 
ones with the heat-sinks). 

I'm finally convinced that anything is now possible. While putting last 
month's issue together, we lost most of the Directory on the floppy that 
held some 80 hours concentrated typing. Fortunately, I was able to get hold 
of a copy of TRS-80 Disk and Other Mysteries (reviewed elsewhere in this 
edition by our resident Disk and Hexadecimal Genius, Eddy), and, with great 
fear and trepidation, started rebuilding a disk directory byte-by-byte. 
Obviously it worked, because the ftpr i I Edition did finally happen. I cannot 
reccomend that book too highly. 

If you I ive in or around Melbourne, start locking forward to October, 
because you are going to get to see not one, but TWO computer shows! One 
for the hobbiest, pure and simple, and the other for the big fellows, but 
also with a hobbiest section. 

I'm still getting odd phone calls and letters about LIFE. Seems that a few 
of our readers have lost their copies of the magazine, but have the program 
on tape. Please note that this program was in TWO parts. One in EftSIC, and 
One in m.l. Neither is any use without the other. It was NOT intended to 
run under Disk ERS1C. To use LIFE first power-down, count to 10 and 
re-power. ftnswer MEMORY SIZE? with 28479, and then use SYSTEM to load the 
m. I . tape. When the tape is loaded you can press the BRERK key to get back 
to BftSIC, to load the BftSIC routines. Then type RUN, press < ENTER > and away 
you go. 

Ron Sulley, our regular correspondent, has relocated the m. 1 . program, by 
altering all the 50H numbers to 70H, and all the 51H numbers to 71H, and 
thus relocated it to start at 7800H. Rs I normally use relative jumps 
wherever possible, this should work well enough (it was written too long ago 
to remember), but make sure to change the routine addresses in the poke 
statements at the beginning of the BASIC routine, or you' II crash. 

In Level II (NOT DISK) BftSIC, if your system crashes, and you. get the MEMORY 
SIZE? bizzo, all may not be lost. Press the RESET button, and you may find 
that all your efforts are still in there. Rs I understand it - and 1 may 
well be wrong - if you answer MEMORY SIZE? with the <ENTER> key, the * 88 
mil I hoppily trundle its way through al 1 your RftM testing each byte until it 
finds one that ( i) doesn' t work, or (ii) isn' t there. Now IT knows how much 
memory you HftUE got, and YOU now know how much program you HfiUEN* T got. 
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We've had a few cases of cassettes sent us coining very unpacked in the post. 
Please, use a smalt padded-bag (which you can buy from the Postal People) 
and keep the outer box at home - this saves postage, and reduces the chance 
of damage . 

Someone out there is about to get a surprise. They ordered some software 
from MICRO-e0 PRPODUCTS, and will have received, instead of what they 
ordered, our MASTER CASSETTE for the APRIL EDITION. As soon as we know who 
this lucky person was, we can send them their original order 1 . 

On the problems of using a timesharing terminal system - "Long delays make 

some people positively unpredictable. I know one programmer who put his 

fist through a terminal keyboard after waiting several minutes for a system 

to respond" (John Walker, Personal Computing, Mov '78) 

Isn't it nice to have your own system ready and waiting all the time? 

P.H. 



***** ftSSEMBLY LANGUAGE PROGRAMMING - PftRT 4 ***** 
BY EDWIN R. PAAY. 

In the previous article of this series, we discussed Data Movement. This 
month we will discuss Arithmetic and Logic functions. 

When we handle the Logic and Arithmetic functions, take an especial note of 

the effect these have on the flags in the F register, as this is important 

for conditional branching which we will discuss later. 

* * * LOGIC FUNCTIONS * * * 

The Logic functions look like this: 



18 


XOR 


ft 


20 


RND 


B 


38 


OR 


(HL) 


48 


OR 


12H 


58 


CPL 




68 


MEG 





These instructions show the type of format that the Logic functions miaht 

take. The XOR, OR and AND functions all operate on two bytes, the first in 

the A register and the second can be any register, number, or contents of a 

memory location. What the computer does is simply line up both bytes one 

above the other and operate on each vertical pair of bits separately. 

Now le>t us do this for the lines above. Line 10 says: EXCLUSIVE OR the A 

register with itself, e.g. if the A register contains 75H before execution 

ot 1 ine 10 then we have: 

contents of ft register = 7SH = 8111 0101 

XOR with itself 0111 0181 

XOR 

Result will be: 80000000 

The result will end up in the A register, so after execution of line 10 we 

have m effect cleared the A register( A will contain zero ). This is a 

convenient way to clear the ft register 

Line 20 says: ftND the contents of the ft register with the contents of 

register B. If before execution register ft contains 58H and register B 

contains 3FH then: 

contents of ft register = 50H = 0101 8000 

contents of B register =3FH= 8011 1111 

ft ND 

result will be: 10H = 10 

So the ft register will contain 10H after executing line 20. 
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jMe of y° u mi 9ht hov.e noticed that I deliberately set out the first four 

bits in the example above into the format of a truth table. This is to 

remind us that the -ftND* function only returns a * 1 ■ if both bits to be 

RNDed are - 1 ". I will do the same with the next example also. 

Line 30 says: OR the contents of the ft register with the value in the memory 

location pointed to by the HL register pair. Therefore if HL = 4000H. ft=50H 

and location 4080H = 3FH then: 

contents of ft register = 50H =0101 0008 

contents of 4000H = 3FH =0011 1111 

OR 

result will be: 7FH 111 1111 

Therefore after execution the ft register will contain 7FH. 

the 6 u!». iS Slmi, :r *J Une 30 eXce P* that a direct value is given to OR with 

hup 7'l l " th L re 9 is *e<*. Note that for all the instructions mentioned 

above ( XOR, ftND, OR ) only the ft register is changed after execution. 

£ro , j" r ?i i r porta ; t fact is that the c f,ag is reset c Reset means set *° 

oi n °r functions. The Z flag however is SET C Set means set 
i* NnT%FPn tk ^ ^ ^ R re 3 ister is ZERO and RESET if the result 

,,o \T u 4 S me ° nS that in the «*™P«« gi^n so far only line ten 

would cause the Z flag to be SET. 

Now we come to line 50. This says COMPLEMENT the value in the ft register 
45H then:" *'* inWerSl ° n; in ° ther "*»■**•, if the ft register contains 

contents of ft register = 45H = 0100 0101 

CPL 

result will be: BRH = 1811 1010 

After execution of line 50 the ft register will contain EftH. 

Line 60 is M r e interesting. This performs the two's complement on the 

contents of the ft register The 2' s complement is used to allow both 

negative and positive numbers to be represented in binary. The idea is that 

the most significant bit of a binary number is used to signify whether the 

number is negative or not. If the most significant bit is set the number is 

negative and if it is reset it is positive. What this instruction does is 

to mvert the contents of the ft reg.ster and then increment it by one. The 

£• complement of a binary number is defined as that number 

added to the original number, will result in a sum of z»ra 

carry. ' 

Therefore if the ft register contains 45H = 10 10 1 

then after execution of line 60 (NEC) 

the result in the ft register will be: BBH = 1011 1011 
Now if we were to add the two numbers together: 

45H = 01000101 

BBH = 10 11 10 11 

ADDING 

RESULT 100000000 

The ninth bit in the result then would be the carry which is ignored (it is 

lost so to speak), leaving a zero result. 

The CPL instruction does not affect the Z or C flags 

The NEG instruction SETs the Z flag if result is zero and RESETs the Z flag 

ZERO P hI*i* T Jr 0t Zer °- ThS ° f, ° 9 ■ lM bS SET if the * Ulster was not 
^tKO before the NEG operation and RESET otherwise. 

The Logic functions ar e mostly used for MftSKING, a term best explained by 
example. Let us assume that we are writing an fVL proVam which uses 
graphics, and we want to make sure that the addresses used stay within the 

screen memory ( 3C00H - 3FFFH ) We cdiild Ho + *,;•* v, 

X" -ji i r n /. we caul a do this by using masking 

technigues; for example: 



which. when 
ignoring the 



100 


LD 


HL.OIDEO 


110 


LD 


ft.H 


120 


OR 


3CH 


130 


ftND 


3FH 


140 


LD 


H,fl 



;UIDEO = VIDEO ftDDRESS 
;GET MSB OF VID, ADDRESS 
;MftKE SURE H REG.>= 3CH 
MfiKE SURE H REG.<= 3FH 
;LOftD MASKED VALUE IN H REG. 
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These instructions would be part of a larger program. Line 100 loads the HL 
register pair with an address value labelled VIDEO. Now we want to make sure 
that this value will never exceed 3FFFH or be smaller than 3C00H. To do 
this we only have to operate on the most significant byte (MSB) of the 

because the least significant byte < LSB ) hs allowed to yar^ 
So in line 110 we load the ft register with the MSB of 
the video address which is contained in the H register, and then in line 120 
uie do the first masking operation which makes sure that the value will never 
be lower than 3CH ( the OR function will insert bits if it is lower and 
raise the MSB to 3CH ). Rny thing higher than 3CH will not be affected at 
ail ■ ln ' ine 130 we do the next masking operation to make sure the MSB 
mill not exceed 3FH. If it is lower, this function will not affect the value 
m the ft register at all, but if it is higher than 3FH, RNDing it with 3FH 
will remove all higher order bits in the byte and convert it 
140 then will simply load the masked value back into the 
this on a piece of paper for several 

I 



v ideo address , 
between 0H and FFH. 



to 3FH. Line 

H register. Try 

different values both larger and 

smaller than the min. and max. values and you will see what 



would like to see this done in practice then hauc> a look ,,i 
2670 in the source listing of the SET2 
Mow let us cover some ftrithmatic 



mean . 



If 



I ines 2648 
program in last months issue, 
operat ions . 



you 
to 



***** ftRlTHMETIC OPERftTIONS ***** 

ftrithmetic operations are available in both 8 bit and IB bit kinds. The 8 

bit ones use the ft register as the accumulator and the IB bit versions use 

the HL, IX or IY registers for this function, (the IX and IY register's are 

of limited use as accumulators however) 

This is what some of the 8 bit kind of instructions look like: 



10 


ADD 


ft,B 


20 


SUB 


C 


30 


ftDC 


ft,0FEH 


40 


SBC 


ft , ( IX+3 ) 


50 


CP 


80H 


60 


INC 


D 


70 


DEC 


(HL) 



Line ten is a simple addition. If register ft = 10H and register B = 5H, then 
after execution ft will contain 15H. Line 20 is a simple subtraction with 
the result ending up in the ft register again-. Line 30 is an ftDD WITH CfiRRY 
this is the same as the normal add in 1 ine 10 with exception that it ' 
adds the contents of the carry flag to the result. Line 40 is the sam 
line 20 except that it also subtracts the contents of the carry flag from 
the result. Instructions of this type, involving a carry, are used for 
multiple precision ftrithmatic involving a number of bytes for each number. 
The carry is represented by the carry ( C ) flag. 
Line 50 shows a veru important function. 



so 
as 



I l is the COMPftRE instruction 

action. I 



which allows us to compare values so that we can take appropriate 
will come back to this instruction in more detail later. 
Line 60 INCrements the value contained in register D by one C i.e. 
it ), and line 70 does the opposite. DECrementing the value contain 



memory location pointed to b; 



adds 1 to 
led in the 
>y the HL register pair, by one. Of course all 

types of addressing can be applied to the ftrithmatic functions shown above 
e.g ftDD ft.(HL) and CP (IY+.4) are both legal instructions. ftlso. 

I have only given a small sample of possible configurations available. 



100 


ftDD 


HL,DE 


110 


ftDC 


HL.BC 


120 


SBC 


HL,DE 


130 


ftDD 


IX, SP 


140 


INC 


DE 



150 



DEC 



BC 












: 
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These ore all 16 bit ftrithmatic functions and operate in the same manner as 
the 8 bit equivalents. 

» *» FLftGS **** 

In all the ftrithmatic operations ( exept ing the 16 bit INC and DEC) the 2 
flag is set, when the result is zero, and reset otherwise. The C flag will 
be set if there was a carry from the most significant bit in the result 
with additions, or a BORROW with subtractions, and reset otherwise. This 
brings us back to the compare function (CP), this function has exactly the 
same effect on the flags as a subtraction would have except that the value 

in the ft register is unchanged by it. 

let' s look at some comPares in detail : 

5 CP 80H 

The value in the ft register will be compared with 80H in this case. If ft = 
50H then after execution of line 5 above, the 2 flag will be RESET because 
the value in the ft register is not equal to 80H and a s0btraction would not 
have resulted in zero, and the C flag will be SET becauce a borrow would 
have been generated since 80H is larger than the value in the ft register. 
If the ft register was 9BH, then after executing line five the 2 flag would 
be RESET again, and the C flag would be RESET as well in this case. If ft 

was 80H, then the Z flag will be SET , and the C flag will be RESET. 
Now examine the following ft/L statement: 

125 CP B 

This compares the va.lue in the accumulator (register ft) with the value 
contained in register B. We can now moke the following conclusions 
regarding the C and 2 flags: 

The C flag will be set If ft is smaller than B ( ft < B ) 

The C flag will be reset if ft is equal to or larger than B ( ft >= B ) 

The 2 flag will be set if ft equals B ( ft = B ) 

The 2 flag will be reset if ft does not equal B ( ft <> B ) 

This makes the C and 2 flags the most useful flags to use for conditional 
branching. 

Branching and subroutines will be the next topic of discussion in this 
ser i es . 

For those of you who do not understand Logic Operations at the single bit 
level some home-work is in order. Information on this subject can be found 
in almost any book that handles digital electronics and/or assembly language 
programm ing . 

****♦ USING M/L SQBR0UT1NES WITH BftSIC ***** 

fit this stage many of you will be able to write BftSIC m/'l programs ( even if 
you don't think so ). There are, howewer, a few things you must know before 
you can use m/'l routines with BftSIC which are not clearly stated in the 
level 2 manual . 

First of all it may be necessary to shift the stack pointer, if the stack 
is going to be used extensively, fts a matter of fact if a m/l program is 
loaded and run through the "SYSTEM" command provided by BftSIC, then the 
stackpointer MUST be mowed. This is due to the fact that BftSIC will put the 
stack right in the middle of its 1/0 buffer. This can cause problems if ROM 
calls are made or when trying to return to BftSIC. O.K. then. Let us do 
some supposing... Suppose you have written a machine language program, you 
have a level 2 16k machine and need to pass a value from basic to your 
routine and need to pass a value back again. This should just about cover 
any possible type of m/'l subroutine you might come across in the future. 
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It mill be necessary to POKE the entry pointer through basic as explained in 

the level 2 manual ... Suppose that the m/l routine is located a 7F00H. 

Spl it this address in two and we get: 7FH and 00H. Convert this to decimal 

and it becomes 127 and 0. Now we wil I POKE the entry pointer with the I sb 

first, which is zero, and then the msb . 

A BftSIC program to do this might look. I ike this: 

10 POKE 16526,0: POKE 16527,127:' THIS SETS THE ENTRY POINTER. 

20 INPUT* ENTER ft NUMBER * ;Y :' GET ft UALUE FROM THE BOSS. 

30 X = USR (Y):' GOTO M/L SUBROUTINE. 

40 PRINT" THE ANSWER IS *;X :' PRINT THE UflLUE PflSSEB BACK. 

50 GOTO 20:* BO IT ftGftlM. 

60 ENB 

Whatever your program does is not important at this stage. Bl I we know is 

that it takes the value from variable Y, then operates on it and places the 

answer in variable X and returns to the next 1 ine in your basic program. 

Your m/1 program will look like this: 



* 



100 
110 

115 

120 
130 
110 
150 
160 
170 
S3 



START 



ORG 7F00H ; START IS AT 7F00H 

CRLL QA7FH ;GET UALUE FROM VARIABLE 



■Y' 



THE UALUE IS NOW CONTRINEB IN THE HL REG. PAIR. 
HERE WOULD BE LOCRTED ft CERTAIN FUNCTION TO BE USED 
ON THE UALUE IN THE HL REG. 
THE ftNSWER MUST BE PLACEB IN THE HL REG. PAIR. 



JP 

END 



0ft3AH 



;PUT ANSWER IN VARIABLE "X" 



Line 110 gets the value from variable Y in this case and puts it in the HL 
register pair. Lines 115 to 160 might contain some sort of function which 
operates on the value in the HL register pair and leaves or places the 
result back ia the HL register pair. Line 170 then will put the result in 
the space allocated to variable "X*, and will return to the next line in 
your basic program. Easy isn't it 7 If you don't want to pass a value 
back to basic then just a RET (return) will do in place of 1 ine 170 
If your program is one that is used in conjunction with the SYSTEM command 
as discussed above the the start and end of your program wil 1 be different. 
Let me give an example: 



180 


ORG 


7F00H 


110 START 


LD 


CSTACKJ.SP 


120 


LB 


SP,STftRT-4 


130 ; 






MORE PROGRAM 


HERE ! 




930 ; 






1000 


LB 


SP, (STACK) 


1010 


JP 


1R19H 


1020 STACK 


BEFW 


00 


1030 


END 


START 



This program shows a typical start and end of a m/l program which can be 
loaded straight from tape and executed. Line 100 again says * the start of 
the program will be 7F00H. Line 110 say* • load location labeled STACK with 
the current stack pi inter". Line 120 then says * load the SP with an 
address 4 bytes lower than- the start of this program ". This way the stack 
will never end up in your program area. fit the end of the program line 1000 
will load the previous stack pointer back (this is not really necessary in 
this case but illustrates how it can be done.). Line 1010 then will jump 
back to the BftSIC command mode. Line 1020 contains a pseudo op. This is a 
command to the assembler, and is not part of the a/l program as such. What 
this says to the assembler is " when you assemble this program leave two 
bytes ( i.e. define a word of two bytes ) at this location and fill them 
with zero's *. This space is labelled STACK and is used to store the stack 
pointer at the start of the program. 
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With the information presented so far you should be able to write some 
s imole m/T programs. For those of you who do not have an assembler, hand 
assembly can be used using the look-up tables prow ided in the Zilog flssemb I y 
Language Programming Manual . This is quite possible. After all , how do you 
think the first assembler program was written? That* s right - by hand? 
Now to make sure that you won't forget everything you've learned so far 
(like you did after the last article) I will give you some homework? 

*** HOMEWORK ANYONE? 

The problem is this: you have a game program with a rather intricate board 
patern. Mow certain errors could destroy the board or wipe the screen 
clear. We want a m/1 program capable of storing the pattern on the screen, 
and capable of zapping it back immediately when required. This can be done 
with the commands handled so far. (hint use the LBIR. f unct ion ) 
The reason for using a m/1 routine is that BfiSIC is too SLOW. 
Next issue we mil I discuss how to do this . 

-=000=- 
»* ON BOARD CASSETTE MONITOR ** by Peter Hartley 

Those of us who ar& prone to persueing our hobby into the early hours - in 
spite of pleas of "Come on dear", "You know you've got to be up early in the 
morning", etc, etc, - are always liable to floods of abuse if we wake the 
sleeping better!?) half when loading tapes into the '80. 

My particular solution was to remove the on-cassette monitor (outl ined in the 
first issue of MICRO 80), and relocate it within the '80, complete with a 
three-way level control, and audio monitoring of the record function, tool 

The whole modification shouldn' t set you back more than $6.50. You' II need a 
smal I loudspeaker, a one-pole two — way, three position switch, one 100 ohm and 
one 470 ohm resistor, a low value tantalum capacitor, and a hank of wire. 

Open up the ' 80, and with a good sol id adhesive - 1 used a Sealastic type 
sil icon rubber - glue the speaker, face-down against the vent slots on the 
underside of the base af the case. Drill a suitable hole in the top of the 
case (mine is just to the right of the <BREAK> key) for the switch. Solder a 
wire to each lug of the speaker, and replace the boards in the '80 case. 



CiSSetU soM t^L under here 
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Solder the capacitor and the two resistors to the switch, as shown in the 
illustration, and run a length of wire from the capacitor to either one of the 
contacts X on the main board, behind the cassette take-off socket. One of the 
speaker mires is then taken to the other X terminal , and soldered in place. 

The final connection is to the switch, at the junction of the two resistors, 
where the other speaker wire is terminated. 

flow you can screw it all together again, because you' ve finished. The two end 
switch positions will give you loud and soft monitoring, and the central 
position turns it off. 

The monitor will only work when you are recording as long as you really am 
recording. In the record mode, the cassette deck outputs a monitor signal to 
the earpiece. This is fed to the monitor speaker. In the play mode the 
monitor is wired in parallel with the computer input. 



** PROELEM CORNER ** conducted by the MICRO-80 resident hackers. 

This month we will devote our efforts to a Victorian Correspondent who has 
apparently got a bad case of the "GREMLINS" . 

He has 16K Level II, and writes... 

I have made several attempts to make RICOCHET work, including retyping the 
whole listing and eliminating minor typing errors, but... I am unable to get 
it past lines 50 or 75. These continually give a F.C. ERROR... 

Well now, the real problem here is that RICOCHET was a Level 1 proqram, and 

there is often more to converting these to Level II than just typing them in 

without the abbreviations. 

First off, Level I uses wrap-round graphics. That is to say, although the 

graphics are arranged to 12? by to 47, you can still set X=190, Y=?0. 

because in Level I. as soon as any graphic value exceeds what is allowed. 

the computer simply starts subtracting the maximum allowable value from what 

it has been given until the result is acceptable. So in the examole set 

out, the computer will set X=32 and Y=22 (remember that computers count from 

ZERO). So, to convert Level I graphics to Level II, you will have to add a 

routine like this... 

110 IFX>127 X=X-123:GOTO110 

120 IFY>47 Y=Y- 48: GOTO 120 

to prevent F.C. ERROR from giving you a thrombosis. 

You may also need a similar routine to eliminate any values less than Zero. 

nlso, with a program like RICOCHET, which simulated the Level II INKEY 

function by setting certain points on the screen, and then performing IF 

POINT type operations to see which set points were still there, to determine 

if there had been an input from the keyboard, and if so which it was, 

well... there is another catch when you convert to Level II. 

Level I gives a 1 and ZERO response to IF POINT type enquiries. Level II 

gives -1 and ZERO. So, this will need changing also. 

Our correspondent continues, "The second problem concerns the Proqram 
HHNGMRN from issue 2. Once again, after several attempts to get the program 
to work, including carefully eliminating typing errors, I still find that 
the program does not give you time to respond with any typed letters, but 
runs straight through to the end of the program. I have made a temporary 
fix by adding a timing loop between lines 130 and 140, to give me time to 
think and enter a letter, but it is still apparent that this is not t.h« 
.•;;! r pot. cure- . ,* 
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Here is a listing of the published version of the appropriate part of 

HANGMAN... 

140 PR1NT3970, "CHOOSE A LETTER:"; 

150 AS=" m : AS=INKEYS: IFftS=" "GOT015B 

180 IFAS=CHRS( 13)THEN150 

If 1 ine 1S0 was typed in as . . . 

150 A$="":AS=INKEYS:IFAS=" "GOTO150 

this would create exactly the effect that is complained of, .j'Jst as 

150 AS="": AS=INKEYS:IFAS="THIS IS NOT A NULL STRING AT ALL"GOTO150 

uiou I d do . too . 

To cont inue ... "Another problem now emerges, as the program does not respond 
to the input letter, until it has completed the next part of the graphics 
routine, whether this letter is correct or not. Therefore it is impossible 
to win, even by cheating....* 

It seems to us that this could indicate one of two things. With the now 

added timing loop, it becomes necessary to actually hold down the selected 

key as the program continues its headlong rush through line 150, otherwise 

AS is just a NULL STRING - in which case A* is wrong, and the player 

continues to get hung. Our correspondent will know whether AS is anything 

else, because if it is, line 155 is... 

155 PRINT@987,AS 

which is what happens - but if AS is a null, you won't see anything happen 

(because null strings are invisible, even to a TRS-80). Alternatively, the 

search routine is in 1 ines 130 and 200... 

190 F0RL=1T0LEN(CHS(R)> 

200 1FMIDS( CHS( R ) , L , 1 )=fiSTHEN280ELSENEXT 

where 280 is "letter accepted", and if anything is wrong in this little 

area, once again, you get hung a bit more! 

We cont inue ... "There is also an apparent problem with the last section, 
between I ines 235 and 320. . . the program crashes straight through and comes 
up with a READY. " 

Buried right in the heart of this offending sect ion , what do we find but... 
240 AS= " " : AS=INKEYS : IF AS= " * GOT 0240 
and 1 ater . . . 

250 IF flS<>"Y"THENCLS: END- 
NOW this seems to be the same problem as before. The 1NKEY function scans 
the keyboard memory to see if a key has been pressed. If it hasn't, the 
variable receiving the INKEY single letter String, gets a null String, which 
in BASIC is written as (Two quotation marks with nothing between them). 
Lines like 248 (above) should loop for ever until either a key is pressed, 
or there is a power-cut, or your ROM goes bad, because at the end of the 
1 ine is an expression that says "if nothing was pressed at al 1 , go back, do 
it again, and have another look at the keyboard memory" 

We resume.. "The other two problems ar& from issue 3. and are the machine 

language programs SET2 and BMON. Both were loaded with the aid of TBUG, and 

punched out onto the tape O.K. When reloaded, the Hex still matches the 

magazine listings. As I don't fully understand Hex, I have been most 

careful to ensure that there are NO errors in my typing. 

With SET2, when the program is activated, it fills the screen with garbage. 

and then. after a few seconds, the screen starts filling from the bottom 

with 1 etter. A' s. 

When BMON (parti) is activated with "/31641* the copyright message comes up 

all right, but when I try to access it with the shifted down arrow, once 

again the computer locks up on me..." 

Sir, don't worry... BMON (parti) did this to everyone. Someone, whose name 

appears right at the top of page one in every edition, left part of the 

listing but of that issue of the magazine. He still says he' s sorry. 

■ 
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fls far as SET2 goes however, we can only say - the 1 isting was accurate. 
Have you set your memory size correctly? Did you use the correct entry and 
location addresses when you dumped your Hex to tape? Have you tried 
reloading it with TEUG and making a new tape, taking especial care over 
these addresses? SET2 really does work as published, and we all suffer from 
something called HEXADECIMRLITIS when entering Eddy Paay' s creations. I 
seem to suffer mild dislexia after as little as 30 minutes of Hex entry. 
Perhaps a friend would help you "proof read" the in-memory Hex against the 
publ ished I isting. 

We resume.. "Is it possible to make modifications to the cassette recorder, 
so as to improve the erasing quality. 1 find that 1 have to put tapes 
through 4 or 5 times to ensure that they are adequately erased, otherwise 1 
have problems with bad data transfer..." 

If you are running the cassette off the mains - as is good computing 
practise - then take it back to your friendly Tandy Manager and spoil his 
day. One pass should erase all, and the test is to erase something of no 
value, and then replay it with the volume up full. If you hear RNY residual 
TRS-80 type conversations, either the erase head is faulty, or the circuit 
that drives it is crook, or the record head and the erase head are badly 
al igned. (The most 1 ikely cause is that one of the two wires feeding the 
erase head (the erase head is the white plastic one on the left-hand side) 
has come off at the head, and a dab of solder should cure al I . ) 

To conclude, our correspondent asks if we can relate any of the Hex or 
Assembly Language Instructions to Single BRSIC Instructions. 

Most BRSIC instructions convert to many multiple bytes of Hex, but we will 
add this request to Mr Paay' s growing 1 ist of "things to do before the end 
of the week" and endeavour to present something along the lines you 
request . 

We invite readers to direct their curly ones at this column, for our 
attention. We promise nothing- but the best of our endeavours - often 
SOLUTIONS are beyond us all! 



»* KEYBOARD REPERT ON THE TRS-80? ** by Edwin Paay 

The TRS-80 uses a 7 byte buffer when it picks up characters from the keyboard, 

to check for rollover. This can be used to give a repeat key function to your 

programs. 

The buffer is located from 403BH to 403CH. If we zero these Bytes at 

intervals, then we only have to hold a key down and it will repeat. 

Listed below is a sample program using this principle: 

10 C=0: IS="" 

20 GOSUB 100 

30 IF RS=ISANDRSO*" THEN OC+1 ELSE PRINTRS; : 1S=RS: C=0: GOT 020 

40 1F05 THEN GOSUB 100: IF ISO AS GOTO 10 ELSE PRINTRS; :GOTO40 

50 GOTO 20 

100 RS=INKEYS: F0RX=1B438 TO 16444: POKEX.0: NEXT: RETURN 

The keyboard will seem to have a bit of a delay before it initially prints to 

the screen. This is because BRSIC is slow. It does however demonstrate the 

principle. 

Uariable C is used as a counter to give a certain de-lay time before the repeat 

function is enabled. 
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** T.R.S.- 80 DISK AND OTHER MYSTERIES ** a review by Eddie Paay . 

How many times have you disk users had error messages 1 ike : "PARITY ERROR 
DURING REfiD- or maybe "GAT READ ERROR* or "HIT READ ERROR" not to speak of 
•DIRECT STATEMENT IN FILE m appear on the screen ? 

Most. of you will probably know the helpless feeling that these messages 
caufse. Lets face it, most of us don' t euen know what HIT or GAT stand for, 
which makes fixing the error almost impossible. 

If you have ewer wondered about what causes these errors and how to correct 
them", you will be delighted to know that the is answers to your questions 
can now be found in a newly-released book - TRS-80 DISK & OTHER MYSTERIES 
by H. C. Pennington. 

This book explains in detail the organisation and format of the disk, the 
directory and the hit and gat areas, and what they contain. It also 
explains how different types of files are stored and how to overcome unknown 
passwords etc. A large portion of the book also shows how to correct 
errors on the disk to restore unreadable files or directories. This 
information is available from nowhere else. 

But more than that, it discusses in detail most available BOS operating 
systems Ctrsdos, vtos, newdos etc) and utility programs such as RSM-ZB, 
M0N3, BEBUG an many other utilities available to the TRS 80 user. It also 
has details and documentation on MEWD0S+ and its utilities, and this alone 
should make this book invaluable to the NEWDOS owner, as the documentaion 
with NEWDOS is relatively poor. 

In my opinion it is one of the most useful publications available to the 
TRS-80 disk user. I suggest to all- disk users to get this publication 
while it is available. 

E.P. 



»**•• INPUT / OUTPUT ***•• 
letters to the Editor 



From; M.G. Thompson, Moorabin Uic. 

I orr, delighted with your magazine and tapes - excellent value but 
understanding what I read - 1 am sorry to say is over my head, and I have to 
never read articles as often. in a hope that I may absorb more. 1 tak* 
heart in that BASIC was originated for the likes of me. and appreciate that 
bright people like to show their stuff. So I ask would you publish articles 
by people not so bright, and identify the pages - *,th say one star for 
level 1, two stars for level 2, and three stars if you use m. 1 . , and four 
stars for a. 4. users etc. 

Now, in all seriousness, I suggest that you not only number the pages of 
your magazine, but that you identify the Issue on each page, as they are 
aoina to be used as reference material later, when the level of our learning 
is upgraded (apart from the fact -that for one program you may. need to refer 
to ssuprnl is:<5iio<? i 



My particular problem is that some instructions can be mis- interpreted. For 
S ! !' * TYPE XM ENTER * presumably means the same os "HIT THE WHITE 
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•feel so miserable after many hours of truing to renumber a program with 
the tapes received, but cannot manage; I ask can you publish simple 
instructions which only refer to tapes supplied. 

Things are not all bad. 1 did manage 'flnologue Clock* and 1 like the 
program so much that I would have liked to have it as the number one proaram 
on a fun night tape, with games, and other material, that haue been 
renumbered so that I don't haue to fiddle with the tapes when trying to find 
Tattslotto or Hangman when asked at random. 

Furthermore, the Tiles" program, I like it! But again could not work out 
if 1 could multiply Stock Items by Price, if they were in the data lines, as 
I could not determine the galue assigned to each item of data because of the 
m . ) . s u !;■ - r o u X l n e . 

(Thank you for your comments, Mr Thompson. Sorry about going oger your head 
sometimes; we'll try to tone things down a bit, and will very definitely 
look at imoroving the user instructions - perhaps what we have for the 
Household Recounts Package elsewhere in this issue is more along the lines 
of what we should be doing? 

(is far as the renumbering goes, I must presume that you ar<s using BMON, 
which did have some teething troubles with the renumbering sequences in its 
early form (see Input/Output in last month's edition). You shouldn't have 
any problems any mo-e, just give the routine time to do its thing. 
I'm not quite sure why you are wanting to renumber so much material, though. 
BftSIC doesn't care what line numbers are used and in most applications the 
memory savings from renumbering, say from 1 in steps of 1, are not of great 
s ign if icance . 

Rs for Files, well, you cannot do any math during the input sequences, as 
the data is all stored in Strings, but you could load your data in to memory 
with Files, then delete everything except your data, and use math or. the 
data left behind, but remember that the data is still in Strina form, and 
ucu will have to use the UflL function to get real numbers, first. 
Your other request has been attended to, already. Hope you like it? Ed . ) 



May I congratulate you on your magazine which I oatiently wait for each 
month . 

I have a TRS-S0 Level 11 which 1 have converted to 1BK, and 1 havo also 
added the -XRX-I11" cassette loading modification, supplied by Tandy. fi 
well worthwhile modification, but one which leads me to a small problem 
which 1 seem to have with m. 1 . programs in your magazine. The problem is 
that they won't work in my machine. But allow me to explain what has 
happened . 

Firstly 1 am only a beginner at this game, and when 1 tried to run the 
Monitor in Basic (Jan '80), 1 found that it wouldn't work, of course. Then 
1 loaded the later version, and it worked O.K. 

1 can now dump a m.l. program to tape, and reload it using the monitor, but 
the tapes will not load using the System command, although my copy of 
Microchess loads without trouble. I have very carefully typed in BMON 
tarts 1 & 2, and checked and rechecked against the listing. The only entry 
I cannot decipher is 725BH which appears to be 72 or 7E. 1 have read it as 

If 1 load BMON using the Monitor" in Basic, and then type SYSTEM <ENTER> 
/dlS41, the copyright message appears, but when I press shift and down arrow 
vhe machine locks up, showing only a cursor at the top left of the screen - 
all very confusing when you don't really know what you are doing anyway' 
1 have tried entering some other m.l. programs with the Monitor in Basic, 
and using the same method of starting them (SYSTEM. <ENTER>, /entry number) 
and they all seem to work O.K. so 1 assume that the Monitor is working 
correctly. 1 am now waiting for your next edition in the hope that there 
was an error in the BMON listing, but if there was not, perhaps you might 
nave some clues as to the nature of my problem? 
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CI' m sorry to hear that. you are hawing so much strife, but you sound as 
though uou' ve plenty o-f' persQiierance. Tapes made with the Monitor in Basic 
are not compatible with the SYSTEM system, so to speak, and do have to be 
loaded and started in the manner you outl ine. The problem with BMON is very 
hard to identi-fy. Byte 725BH in that listing was 7E and not 72, but there 
man yet be other bugs in yOUR listing. Unfortunately, there are literally 
mill ioris of ways to make a ro.l . program cause a lock-up of the type you 
describe, and 1 would be only guessing if 1 said any more than that. By now 
you wil I have received the final alterations - in the fipril edition - and I 
can only suggest that you and a friend sit down together and proof-read the 
whole I isting. It only needs one character in one byte to be wrong and the 
whole thing will crash. I'm pleased that, in spite of your troubles, you 
still "wait at the gate* for MICRO -80 to arrive. We are certainly trying to 
advance the publ ication dates towards our target of the first week of the 
month, but another minor set-back last month disrupted things yet again. Fis 
for the XRX-1II cassette loader - well , we all use it, and Tandy now fit it 
to all new units in the factory, so it must be good! Ed.) 




c 
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*»*** THIS MONTH' S SOFTWARE »**** 



** SUB fiTTftCK ** Leo el 1/4K By Marlon Binet 

Just type it in and RUN. This fun program is another demonstration of level 2 
1NKEY simulation in leu el 1. 

fi battery of guns is drawn along the bottom edge of the screen, and these moue 
in and out - rather like pistons going up and down - in sequence, while nasty 
enemy subs pop up from out of the water all over the place. fill you have to 
do is hit a key while the gun that's pointing right at the enemy is sticking 
out. Sounds easy? If you're fast enough to beat this game, you've either got 
E.S.P. or you're cheat ing I 

** SPfiCE-DRlUE ** L1/16K 

fin unusual twist to the "you - 1 and- it " space game. fifter an automatic 

take-off, complete with two passengers, you are required to navigate through 
four meteor showers - each progressively more severe than the last. 

Demonstrating the level 1 simulation of Big Brother's INKEY function, you have 
three controls at your command. However, there's a catch. Sabotage has 

cross-connected the controls, so you may have to learn how to drive all over 
again with each meteor shower! 

Only then can you land. Happy space -dr iv ing . 



** TRIG/BBS ** CL2) by Robert Sunners 



fi short sweet, and very much to the point package from the pen Cor nimble 
keyboard) of Bob Sunners, this will work out all your trig problems. Just 
tel your 80 what you've got, of any triangle, and this package will fill in 
OH the gaps in the glitch of screen refresh cycle. Keep 'em coming, please, 



** SUPER-SIZZLER ** C L2/8K ) by Robert Sunners 

The idea of this game is to build a panel-van from the ground up usma 

components from E! Cheepo Spare Parts, at the bottom of the screen tHou 

:: ay r r ,ucky enou9h to ^ the — *•»*• *■*■ •*> »m » eaP i™*.!^ 

liVoTorl PfiY^or ^ ^T POrtS ' ^ "" ^ to »" h - N™*h« or, horror 
part, you have to shooTt V"^ H ° U [ CrUSt * and t0 Wl " the °«asion al bonus 

hit either of the If" ! * ^ "^ l " 9 9rldS - Xf «° u ha P? en *° 

repairs tTthel If ^ ' "^^ °* the t^s, you uill be bilL for 

to El ChLnn o" D y ° U Cana0t PQy * y ° U may hawe to se " a P«rt or two back 

t 1*°? eeP ° ^oruParf - and probab.y . ose money in the process. If th nas 
aet too tough, the '80 will petition fa your bankruptcy, an S stop p.aying 

To find out more - start typing! 
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** TIC-TRC-TOE ** (L2/4K) by Trevor Henderson 

From time-to-time, when the Micro 80 hackers are wading their way through the 
incoming cassettes, one lobs up that holds a surprise. This is such a 
program. Our initial reaction was one of "Ho Hum - that old chestnut again* 
and the cassette went straight to the bottom of the heap. We're del ighted to 
have to admit our mistake. 

Trevor's package is a gem, offering FIUE levels of play, ranging from "easy 
enough for my children to beat it" to "you're lucky to force a draw". 

When typing the program, use the shift key with the following... 
I ine 28 "X" "0" 
I ine 80 "C" "S" "N" 
1 ine 200 "X" "0" etc 
1 ine 740 "N" 

The following commands are all shifted... 

C clear system and restart from game 1. 

S restart the current game. 

N restarts the current game, but changes the player to move first. 

X or restarts the current game, exchanging noughts and crosses. 

L (unshifted) allows you to enter the I.Q. level . 

identifies the squares. 

«J- removes the identification. 

Numbers from 1 to 9 input the selected square for play. 

fit the end of each game the display is held, with the score tally for tha 
series., until the space bar is pressed 

ft word of warning - level five can generate up to four moves ahead. Players 
should use care not to fall into some of the less obvious traps that may ba 
generated. 



»* HOUSEHOLD RCCOUMTS (LII/IBIO ** Author Lance Lawes 

Copyright 1980 M1CRO-80 

Written for 1BK, cassette and line printer, this program provides a 100 line 
buffer for storing information. Data may be entered from keyboard or 
cassette, and may be output to cassette, printer, or UDU. Data may be 
freely edited, as required, and reports produced by the program include 4 
journals, trial balance, and ledger accounts which may be numbered from 1 to 
100 inclusive. 

Enter the program, as listed, and CSRUE it Cor take out a subscription and 
send for your free software tape as explained in the Editorial). 
Let's go through the main MENU, displayed as soon as the program is RUN. 
1) Keyboard input Each line of data is input as a string variable. 
Extensive use is made of the MID* and OftL functions to manipulate substrings 
of the main data string. Therefore, the positioning of each of the data 
fields within the string is important. The video display shows where each 
field commences. These fields are <date> (reference number> <details> 
<total> (account number) <debit amount) (credit amount) 
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Enter <date> as up to six characters and/or spaces 

right-arrow key 

(reference number > e.g. cheque number, etc 

right-arrow key 

<details> e.g. payee's name 

right-arrow key 

<tota!> e.g. value of cheque 

right-arrow key, space 

(account number > two parts; prefix CPtcash payments) 

CRC cash received) ■ 

GJ(.general journal ) 

SJCsales journal ) 
followed by the account number. 

Thus CP1S would be the account IB in the cash payments journal. 
right-arrow key 
<debit> enter debit amount 
right-arrow key 
A (credit) enter credit amount 

Mow hit (ENTER> ana the whole string will be recorded, and the prompt ? 
■mil be displayed. To exit this routine, type EXIT and hit ( ENTER >. 



t 



2i Cassette data input Follow the instructions on the screen. You will 
need to input the number of data records on file, so remember this whenever 
you save to cassette. 

3) Read memory Displays current contents of buffer 

' Edit Memory ft i lows you to rewrite any line from present buffer. 

Use (3), above, to establish correct line number. 

5) Save to Cassette Full instructions given on screen 

B) Print Journals 

7) Print Ledger Balances 

3) Ledger ftcounts fill necessary instructions for these will be 

displayed on UDU. 

8) Lineprinter utility allows direct interface between keyboard and 
1 inepr inter . 

To use this package the user will need to prepare a chart of accounts... 
e.g. 

BftNK BCCOUNT ftC/NO 1 

HOUSEHOLD EXPENSES 2 

VEHICLE EXPENSES 3 

RENT, RftTES 4 
etc, etc 

Suppose that a cheque is now drawn for motor vehicle insurances. The cheque 

but should be coded with a "3" (vehicle expenses), and the data entry would 
appear as. . . 

DftTE REFNO DETftlLS TOTftL ftC/NO DEBIT CREDIT 

MfiR 1001 INSURRNCES LTD 123.45 CP03 123.45 

If two policies were paid with the one cheque, the entry might be as... 

MftR 1001 INSURftNCES LTD 123.45 CP03 100.00 

MRR CP02 23.45 

where multiple dissections apply. 
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Similarly, cash received might be recorded as... 



253.00 



MRR WRGES GROSS 200.00 CR15 

WR WFIGES TRX CRIB 50.00 

thus allowing you to keep track of your income, tax deductions, and any 

other deductions -from source. 



You could also keep track of your loan indebtedness by this form of 
entry . . . 



MRR JNL UEHICLE EXPENSES 
MftR JNL BRNKCRRD 



GJ03 
GJ07 



100.00 



100.00 



With a little bookkeeping experience, or uilth much practise, it is quite 
possible to keep a set of records on the Double Entry System. Supoose we 
had the following data... 

flCXNO ITEM RESIGNED URLUES 

DEBIT CREDIT 

1 HOUSE, LRND & CONTENTS 50000.00 

2 NOT OR UEH1CLE 5000.00 

3 CASH RT BRNK 500.00 

4 HOUSE MORTGRGE 20000.00 

5 HOUSEHOLDERS CRPITRL 35500.00 

(TRIRL ERLRNCE TOTRLS) 55500.00 55500.00 




e 3ch month (.which would be obtained from the trial balance at the end of the 
previous month), and cheque payments, banking deposits, bankcard 
transactions, etc, could be recorded in the appropriate journals. 



LISPiBMK UTILITY 

Tit LlfEFxlNTS UTILITV mi SE W> TO POT HEiDINGS OHTC T€ 

7& rQLLOHING IS Tffi ItfTITfl BfiTfi FFJ) INTO THE BLFFtf 
W ENTRIES ;-?£ STILL TO 3M 
i) THE TOTS. FCR CfiSH RECEIVED 
2) Tl£ TOTfL F^ LfSK FSWOTS 

this immm hill ess m he ?mm itself 



<:i5; m. 
(i?> m 
i 18 > m 

: 13) rfiR 
<23> ffiR 



fc^ttJiA^cH**^-**?****^****^ 



tt:cpMrtritw:ri4 



<1> iR 


: Vf*J^ H ; rir^ 


(2> «R 


HffiES (VEFRTOCaTE). 


C3> *£ 


SOTTR^ 


C4> Ml 


SUFSSiMmm 


<5> w» 


mtEHOU) fjtoss 


<s> m 


VEHICLE EffENSES 


< 7 > HfiR 


»&»$£ EffENSES 


{ 8 > ftS 


ISTQfEST EffQcE 


(9) MR 


HOTOR VEHICLE 


C18> HRR 


mm urn t contents 


cm Hf£ 


HOUSE URTSffiE 


<12> NflR 


mm- 



SJ91 



<<% * 





18M88 


SJ83 


389.88 


SJ34 


BPH *Vi 


SJffi 


1883.88 


2"* 


isaes 


SJ37 


245. »3 


SJh 




SJ8S 


5888.68 


SJ18 


.56888.® 


SHI 


28838.88 


SJ12 


25S. 98 



C 22> Ss? 
<24> HR' 

' f, \ KM? 

C2S> SR 



C 25 > 3HR J;I 

< 2? > ss m 

( 28 > M M. 

i 21 > m jl 

<22> fit? JM. 

(22> WS JJL 
PRINTOUT JMLETE 



BOOTXDEES GRITS. 
SftESSxOSS 
$QES ffiffl? Tf» 
i^GESSUPS 
£ES GROSS 
&GES GROUP TfK 

181 ISSH 

is? mm 

183 INSURfifCE LTD 



HOUii Lflm LiiJ 

jJiSCuUKI STliRES 

53*Cm5 

a CHEtfO TVRES. 

89KQRD 

INTEREST 



378.88C882 
CR82 



CS84 






iS?4 

r5.38CP95 

CP86 

2S.88CP12 

isaee *yes 

CPS& 

75.88CF85 

C?85 



TT; jir 



'„:;;" W i.-ri* 



(jJ12 



0J8S 
Cvi2 
GJ8S 
SJ11 



isase 



^.88 



38. 89 
M. 88 
laffl 

-i-.«. OS 

58.88 

199.89 

£5.88 

18 89 

isaee 

53.88 



•:Li 1-tj 
■---. ■-•-• 



FJM 



:-a s* 



ISSUE 6 (MfiY 1980) 



M1CRO-80 



PAGE 22 



r-.:~Tr nrr - in"i *.— — -- - 
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■-- 


A-VJ 


■'CO 




•-'■jD 


J.-li 


; ;: is "v 


A-rr 







BW Is*! MIBf-.:- 



• 



;.->- _; :>■ _-._ - - - 



*.U!L .€L SB! ''L:iil,!_ 



! ' ■ : *_- u .". * 



a-u ! - '.v:r*.'. 



r 5S :"» 



Cm RECEIVED JOUiM. FOR (MIDJHR 

ffliES GROSS 278 

wHGES Q?0UP Tfifi 



MhOES GROUP TAX CROi 



C -T bfl *~D7T 



— -r. 



CkEDIT. 



OENEEfiL JCURfflL FDR (DSIEJfflR 

DATE REF *J0 DETAILS 

KfK Jtt. DISCOUNT STORES 

m jiL mmm 

HPP M. EL CREHFO TVME5 



mi 7 4fl flfi 






M ;E4 IKS- .1- 



t 



L5.:": ■->::_.■*•• -k ' = ■)■ =1-%' 

•.■h"J"i 



TV -*-n 






nPflfi IS* gi 



HRP THIS : ~ H&H p$.*n*7C 



^^rf^Jifgy' 



''•w m ywi m 



it ftt km itiiiiii 

* vfun ni HlifN 

R HHGES AGS TO DHTE) 



T0TSL..H/CN0 DEE;IT 



i.>qp 
■■-: 



MSJ5EH3LD EXPENSES 
VEHICLE EXPENSES 
mma EXFB/SES 
MEREST EXPENSE 
MOTOR VEHICLE 
HOUSE LflNB t CONTENT; 
HfJUSE MRTffiGE 



:"--- 


CadTOpr* 

LnnaVf.-IYiU- 1 




HOUSEHOLDERS CfiFITfi 


:;Hh : 


TOTfiLS 



SJ02 



mm Mii 






SJ12 255.09 

SJii 29764. S3 









DRLEK CHRSE (L2/16K & up ) $15.00 + 50c p&p. 
fin absorbing game in which you save Dr Who -from 
persuing Daleks. The better you play, the harder it 
gets land wica versa). Infinate range of play 
levels from HRRD to UTTERLY IMPOSSIBLE, and comes 
complete with messages of praise and mediocre 
insults. (If you are really bad enough at this 
game, it actually refuses to play any morel) 
ENTHRALLING FUN FOR ALL. 



UBOftT CIS. 00 + 50c p&p 

Real time simulation at its best I Comes with 
working sonar-screen and periscope, a full rack of 
torpedos. plenty of targets, working fuel and 
battery meters, helpful Mothership for high-sea 
reprou isioning, and even has emergency radio for 
that terrible moment when the depth-charges put your 
crew at risk. Requires Level II/1SK. 



** Coupon duplicate appears on inside back page * 
» Coupon prices are inclusive of post & packing * 
To: MICRO-80, P.O. Box 213, Goodwood, S.fi. 5034. 



Please rush me the 



i terns 



checked below. 



12 month subscription to MICRO-80 
and my free . software catalogue. $24.00 

12 month subscription to MICRO-80 

and the cassette edition, plus my 

free software catalogue. $60.00 
The latest issue of MICRO-80. $ 2.50 

Touchtype. $28.45 

RPN Calculator $25.45 

BMON $20 . 45 

Dalek Chase $15.50 

Learning Level II $18.15 

BOX of 10 * SCOTCH C10 Tapes $24.00 

Box of 10 * SCOTCH C30 Tapes $28.00 

Lower Case Mod. $ 6.00 

Me Think it MICRO-mazing v.l $15.50 

Me Think it MICRO-mazing v. 2 $15.50 

UBOftT $15.50 

Space Invaders $ 9.00 

TRS-80 ROM Handbook . $26.00 



-TOTRL ENCLOSED $. 



Please debit my Bankcard $ 

Number . .» Expires 

Name , 

ftddress 



.Post Code. 




takcari 



MICRO-80 PRODUCTS MIC 
MICRO-80 PRODUCTS Mid 
MICRO-80 PRODUCTS MIQ 



SCOTCH BRftND COMPUTIH 
Available in two sizi 
the TOPS. Individual 
rigid box, they come 
C10 (five mins per st 

$24.00 incl p&p 
C30 (fifteen mins par 

$28.00 incl p&p 
These tapes come 

specification demanda 
and are not- recommend 



BMON - THE ULTMRTE 
(L2/16K & up) - 6 
Basic) $15.00 + 50c 
Our own personnel 
first loading this ail 
program into high mil] 
Basic programs on tha | 
loading; Tells you \ 
program just loaded; 
through; Merges t 

renumbering of the s 
clashes of line numb I 
though you did type N | 
while you work on a \ 
time!); Lists all thai 
Makes SYSTEM tapes ; ij | 
the I ist goes on and 
32K, and 48K versij 
afford NOT to have BMfl 
*» N.B. The prici 

$19.95 from June 1st. 
firstly to do justica 
secondly because the t 
all three popular men 
our manufacturing cosl] 
today ! 



ME THINK IT MICRO' MfiZl 
two three game cassetl 
Highly animated and ( 
master of TRS-80 gr< 
brings you THIEF (sta« 
TRNK (a two player t 
SHOOTOUT (Mexican styl 
offers KNEVIEL (as I 
INDY 500 (the ultii 
(blowing up unfortunl 
the place). fll 1 are r 
II/4K 



30 PRODUCTS MICRO-80 PRODUCTS 
B0 PRODUCTS MICRO-80 PRODUCTS 
80 PRODUCTS MICRO-80 PRODUCTS 



APES 

these blank cassettes arc 
packaged in an extra strong, 
packs of ten. 



da) 

ight up to the highest 
f SCOTCH for digital tapes, 
for audio use. 






MORY BRSIC MONITOR - 
suitable for use with Disk 

: use to write BASIC without 
ng machine language utility 
y! BMON Renumbers; Displays 
reen while they are still 
e memory locations of the 
s you stop a load part-way 
programs, with automatic 
nd so as to prevent any 
; Recovers your program even 

Makes one program invisible 
ond (saves hours of cassette 
riables used in the program; 

you Edit memory directly... 
Cassette comes with 16K, 
. re^dy to load. Can anyone 



Pad 

iwo 



WON will be increased to 

have decided to do this, 

D the author, Eddy Paay , and 

i now contains versions for 

I sizes, which has increased 

So get your order off 

!l 



S15.00 + 50c p&p each 
rtainihg games from that 
Ds, Charlie Bartlett. No 1 
) old man's hoard ot loot), 
e of speed and skill), and 
igh-noon for two). No 2 

torcycle, ramp and buses), 
I road-race) and WRRSH1P 

Itittle submarines all over 
— "'= 



RPN CfiLCULRTOR (L2/1GK & L2/32K ) S24 . 95 +50c p&p. 
Give your computer the power of a S650 reverse 
polish notation calculator with 45 functions and 
selectable accuracy of 8 or 16 digits. The main 
stack and registers are continuously displayed, 
whilst the menu is always instantly accessible 
without disturbing any calculations or register 
values. The cassette NOW comes with both the 1BK 
and 32K versions, the latter giving you the 
additional power of a programmable calculator. 
Comes with a very comprehensive 15 page manual , 
which includes instructions to load and modify the 
32k programmable version to run in 1SK. Whether for 
everyday or occasional use, this package will prove 
invaluable, and turn your ' 80 into a very powerful 
instrument . 



TOUCHTYPE (L2/4K) S18.95 +50c p&p. 

An interactive, 22 lesson typing course which uses 
the computer' s keyboard and screen to teach you to 
type rapidly and accurately, and a massive cassette 
data dump to control your progress. The computer 
checks for accuracy, and sets timed excercises to 
check your progress. If you have to look at each 
key before you press it, or only use two fingers, 
then this program, plus a little persQverence, will 
da some amazing things to your typing speed. 



LOWER CfiSE MOD. KIT *5.50 + 50c p&p 

Complete in every regard, comas with prime quality 
makers speciication low power memory chip, switch, 
wire, and very detailed instructions. Easy to 
install, and a lot less expensive that the TANDY 
modification. Stop your '80 from holding out on 
you, and get your kit TODRY. 



LEARNING LEUEL II (book) *18.S5 + 41.20 p&p 
By the author of the acclaimed Tandy Level I 
handbook, this reveals the secrets of Level II in 
the same inimitable style. Bright, breezy, easy to 
read and understand throughout, it is not only a 
book in itself, but contains pages to cut out and 
pasta into the Laval I manual, converting that to 
Lavel II, too! Just reprinted, and specially 
air-freighted in from tha U.S. for YOU, to halp you 
gat tha most from your ' 80. 



SPRCE INURDERS Sa . 50 + 50c p& 

Much improved version of this arcade favourite, with 

redesigned laser and cannon blasts, high-speed 

™"' ? B r ° Uin 9 drone t^gets, 10 motherships and 
heaps of fun for all. Level II, ttith ~ 
versions on this cassette. 



4K and 1GK 
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This proqrom requires 15K, so does not leave room to expand the buffer in 
1.BK machine. Those of you with larger memories, and busier bank-accounts Off 
small business applications, will need to edit line 10 (clear 7000). and al 
the program lines with FOR/NEXT loops (180, 300, 240, 370, 600, 690, 1100, 
1380) 



** CONNEXTX arid CONNECT ft ** (L2) by Robert Sunners. 



Two little routines for plotting lines from (XI, YD to (X2,Y2), without usinM 
m.l. routines like SET2. Both are simple, self explanatory, and as you con 
have them both up-and-running in ten minutes, tue won' t tel I you any more noun 
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f 



10 
20 

30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 

1000 

1010 
1020 
L030 
2000 
2005 
2010 
2020 
2030 
2040 
2050 
2500 
2510 
3000 
3010 

4000 

4010 

4015 

4020 

4025 

4030 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5O70 

5080 

5090 

38000 

30010 

30020 

30038 

30840 

38050 

30060 

30070 

30080 

30090 

38100 

30110 



REM SUB RTTRCK BY MRRLON B1NET 14/2/80 
CLS: P. "WELCOME TO SUB RTTRCK" 
IN. "DO YOU WANT THE RULES ( l=YES,2=NO )" ;Q 
IFQ=1CLS:GOSUB30000 
CLS:GOS.2000 
S=0:L=30:P.R. 1000; 
P.fl.911;L;:P.R.975;S; 
P. R. 70; "HERE WE GO . . .*; 
F.I=1TO3000:N.I 
P.R.78;* »; 

GOS.3000 

X=RND(78)+24:Y=(RNDC 09;+l )*3+l:G0S. 1000 
GOS.4008 
IFL=0T. 31000 
G.120 
REM SUB TO BRRW SUB RT X.Y 

F.I=XTOX+10:S.(I,Y):N.I:F.I=X+2TOX+8:S.(I.Y+L):N.I 
F.I=X+1T0X+4:S.(I.Y-1):S.(1+6,Y-1):M.I 
S.(X+4,Y-2V.S.(X+4,Y-3):RET. 
REM SUB TO DRRW GUNS 
P . R . 896 ; 

F . 1 =0TO 127 : S . C 1 , 40 ) : S . C 1 , ) : N . I 
F.I=0TO40:S.(0,I):S.C127,I):N.I 
P. R. 896; "SHOTS LEFT . .*; 

P.R.960;" SUBS HIT . . "; 
F . I=36T086S . 10 : GOS . 2500 : N . I : RET . 
F. J=IT0I+4:S.(J,38):S.(J,39):N.J 
S.CI+2,37):S.(I+2,36):RET. 
REM SUB TO SET CURSOR ETC 
P. R. 1080; :F.I=79T082:S.CI,46):N.I:RET. 
F.I=1T03:F. J=38T088S. 10 

S . ( J , 35 -) : IFP . C 80 , 46 ) =0T . GOS . 5000 : RET . 
F.K=1TO50:N.K:R.(J,35) 

N. J:N.I:C=I.(Y/3)*64+X/2-l:P.R.C; " 
L=L-1 

P.R.C-64;- -;:GOS.3000:RET. 
IFP. t 79,46 )=0T.O=-1:G. 5030 
IFP . ( 82 , 46 >=0T . 0=0 : G . 5030 
0=1 

F . I=35T0Y -3S .-1:S.(J,I):R.(J.I): J= J+0 : N . I 

J=J-3*0:L=L-1:P.R.911;L; 

R=I . C Y/3- 1 )*64+X/2 

IFfi.(J-X-5)>6P.R.R;- * ; :P.fl.R+64; " ";: GOS. 3000: RE1 

F.I=1TO500:N.I:P.R.R; "BOOM! * ; 

F.I = 1TO1808--N.I:P.R.R;- " ; : P.R. R+64; " ';:S=S+1 

P.R.975;S; : GOS . 3800 : RET . 
P. "WELCOME TO SUB RTTRCK * 

P. "YOUR MISSION IS TO DESTROY RS MRNY OF SUBS' 
P.-RS POSSIBLE WITH R LIMITED NUMBER OF SHOTS. " 
P. -THE SUBS WILL 5URFRCE RT RRNDOM PLRCES ON THE DORRD" 
P.-RND WIL1 REMRIN ONLY FOR R LIMITED TIME." 
P. °1F YOU RLLOW THE SUB TO ESCRPE WITHOUT BEING" 
P.-SHOT RT YOU FORFEIT R SHOT." 

P.'TO RCHEIUE RLL THIS YOU COMMRND R NUMBER OF GUNS" 
P.'SITURTED RT THE BOTTOM OF THE SCREEN THE BRRRELS" 
P. "OF WHICH MOOE IN RND OUT IN SEQUENCE. THE GUN WHICH" 
P. "FIRES RT RNY ONE TIME IS THE ONE WITH IT'S BRRREL" 
P. "OUT. YOU MRY MRKE THE GUNS FIRE IN R CHOICE" 
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38120 P. "OF THREE DIRECTIONS BY PRESSING THE APPROPRIATE KEY. 

30130 P. "SPACE BAR FIRES FORWARD, 2 FIRES TO THE LEFT AND T" 

30140 P. 'FIRES TOWARB THE RIGHT." 

30150 IN. 'TYPE ' ENTER' TO CONTINUE" ; A*: CLS 

301B0 P. "YOUR SCORE AND REMAINING SHOTS ARE DISPLAYED" 

30170 P. "AT THE BOTTOM OF THE SCREEN." 

30180 P. "THAT IS ALL YOU HAOE TO KNOW" 

30198 P." GOODLUCK>»" 

30280 IN . " TYPE ' ENTER' WHEN READY * ; AS : CLS : RET . 

31000 CLS:P.*YOU SCORED A *;S; "OUT OF A POSSIBLE 30" 

31010 INPUT*CARE TO PLAY AGAIN C 1=YES . 2=N0)" ;Q 

31020 IFQ=1T.50 



SPACE DR1UE (LI) 



10 CLS:Y=1:N=0 

20 PRINT "DO YOU REQUIRE INSTRUCTIONS CY/N) " ; : INPUTH 

30 IFA=8G0T06B 

48 IF A=1G0T 06800 

50 GOTO20 

B8 CLS:Y=2S:F0RX=51T062:SET(X,Y):NEXTX:X=47 

78 F0RY=27T038: F0RX=XT0X+3: SETC X, Y ) : NEXTX: X=X-8: NEXTY 

88 X=63 : F0RY=27T038: F0RX=XT0X+3 : SETC X , Y ) : NEXTX : NEXTY 

90 SETC35,31):SETC78,31) 

100 F0RX=3ST078: SETC X, 32): NEXTX 

118 FORY=33T037: SETC 4B,Y): SETC 41, Y): SETC 56, Y ) : SETC 57, Y ) 

120 SETC73,Y):SETC74,Y):NEXTY 

130 F0RY=38T048 : FORX= 14T099 : SET C X , Y ) : NEXTX : NEXTY 

190 PRINTAT330; "BOARDING SOON" 

200 FORE=1TO1008:NEXTE:PRINTAT330 

210 RESETC 35, 31 ) : G0SUB13BB : RESETC 35 , 32) : GOSUB1380 

215 E=14 

220 Y=32: F0RA=BT01BSTEP2 : SETC 35-A , Y ) : SETC 34-A , Y ) 

238 F0R2=1T058:NEXTZ:Y=Y+1:NEXTA 

240 Y=37:F0RX=14T021STEP2: SET CX,Y):GOSUB 1400: RESET CX. Y ): NEXTX 

250 Y=36:X=24:FORA=0TO5:SETCX,Y):GOSUB1400 

260 RESETC X, Y ): X=X+2: Y=Y-1 : NEXTA 

278 X=36 : Y=3 1 :F0RX=XT0X+ESTEP2: SET CX.Y): GOSUB 1488 
288 RESET C X . Y ) : NEXTX : E=E- 5 
298 SETCX,Y):IFE<=3G0T0318 
388 G0T0248 

318 Y=37:X=24:FORA=8TO10STEP2:RESETCX,Y):RESETCX+1,Y) 

328 F ORZ= IT 050 :NEXTZ:Y=Y-l:X=X+2: NEXT A: GOSUB 1388 

330 SETC 35 , 32) : GOSUB 1380: SETC 35 , 31 ) : GOSUB1300 

370 PRINT AT276; "STAND BY FOR TAKE OFF" 

388 F0RX=18T08STEP-1 

398 FORY=1TO300: NEXTY 

400 PRINT RT349;X: NEXTX 

405 PRINTAT276:PRINTAT349 

410 X=40:FORY=37TO33STEP- 1 : RESETCX+34 , Y) : RESETC X+33 . Y ) 

420 RESETCX+17,Y):RESETCX+16,Y)tRESETCX+l,Y):RESETCX,Y) 

430 NEXTY 

440 PRINT AT768 : GOSUB 1300 : GOSUB 1 400 
450 PRINT AT832 : GOSUB 1300 : GOSUB 1 480 

460 FORA=1TO11:PRINTAT960:FORQ=1TO20:NEXTQ:NEXTR:Q=20 
500 CLS:Q=Q+20 

510 IFQ=120GOTO3880 

520 A=RNDC63):B=RNDC63)+63:C=RNDC63)+127:D=RNDC63)+191 
538 E=RNDC63)+255:F=RNDC63)+319:X=3 
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540 F0RZ=1T0RND118) 

550 PRINTAT0: PRINT RTR; ••" : A=R-Z:IFR<=3THENfl=RND( S3) 

550 GOSUB1500 

570 PRINTRT64: PRINT RIB; - *" :B=B-1: IFB<=67THENB=RND(63->+63 
580 GOSUB1500 

590 PRINTftT128:PRINTRTC; •*- :C=C-l:IFC<=131THENC=RNDC63>+127 

EBB GOSUB1500 

610 PRINT RT 192 :PRINTRTD; '** :D=B-2: IFD<=195THEND=RND(63>+191 

620 GOSUB1500 

630 PRINT RT25B : PRINTRTE ; " * ' : E=E- 1 : IFE< =259THENE=RND( 63 ) +255 

640 GOSUB1500 

650 PRINTRT320:PRINTRTF; •»- :F=F-1: IFF<=323THENF=RND( 635+319 

660 GOSUB1500 
670 NEXT2 

700 CLS:F0RZ=1T075:PRINTRT135;"PREPRRE FOR METEOR SHOWER". 

705 PRINT RT 135 :NEXT2 

710 5ETCX,Y):SET(X+1,Y):SETCX+2,Y) 

720 FORfi=5TO120: SET< R, 10 ) : SETC fl, 40 ) : NEXTfl 

738 FORR=10TO40:SETC5,R):SETC120,R)-.NEXTft 

740 FORZ=lTOQ 

750 fi=RNDC114)+5 

760 B=RNDt29)+10 

770 SETCfi,B) 

780 RESET(X,Y+1):RESETCX+1,Y+1):RESETCX+2.Y+1):RESETCX+3.Y+1) 

790 RESETCX+4.Y+1): RESET (X+3,Y):RESETCX+4,Y):RESET(X,Y-1) 

800 RESET(X+1,Y-1):RESETCX+2,Y-1):RESET(X+3,Y-1):RESETCX+4,Y-1) 
820 NEXTZ 

830 GOTO 1900 

900 fi*=ENTER 

910 BS=3-- 

920 PRINTRT89B:PRINTRT89B; "PRESS ";R*;- TO GO DOWN. -;B*;- TO ' 

930 PRINT "REVERSE. OR P TO GO UP. " :GOSUB1600 

940 IF(POINT(2,4)=0)*(POINT(6,4)=1)*CPOINT(8,4)=15GOTO1800 

350 IF(POINT(2,4)=l)*CPOINT(6,4)=0)*tPOINT(8,4)=l)GOTO1100 

360 IFCPOINTC2,4)=1)*(POINT(B,4)=0)*(POINT(8,4)=0)GOTO1200 

970 RESETCX-1,Y5:RESET(X,Y):RESET(X+1,YURESETCX+2,Y) 

380 X=X+2:SET(X,Y):SET(X+1,Y):SET(X+Z.Y> 

338 GOSUB1700:GOTO340 

1000 PRINTRT836:PRINTRT836; "PRESS -;R*;- TO GO DOWN. -;B»;* TO " 

1010 PRINT-GO FORWARD. P TO GO UP" :GOSUB1600 

1028 IFCPOINTC2,4>=0)*(POINT(B,4)=i>*(POINTC8 f .4)=l)GOTO320 

1030 IF(POINT(2,4)=1)*(POINT(6,4)=0)*(POINTC8,4)=1)GOTO1100 

1040 IF(POINT(2,4)=1)*(POINT(B,4)=0)*CPOINT(8,4)=B)GOTO1200 

1050 RESETCX-1,Y):RESET.(X,Y):RESET<X+1,Y):RESETCX+2,Y) 

1060 X=X-2:SET(X,Y):SETCX+1,Y)=SET(X+2,Y) 

1070 GOSUB1700: GOTO 1020 

1 100 PRINTRT83B : PR1NTRTB96 ; 'PRESS " ; RS ; - TO GO DOWN . ■ ; B* ; - TO ' ; 

1118 PRINT-REVERSE.. OR P TO GO FORWRRD* : GOSUB1600 

1128 IFCPOINTt2,4)=8>*(POINTC6,4)=l)*CPOINTC8,4)=l)GOTO1000 

1138 IF(POINT(2,4)=l)*(POINT(6,4)=0)*CPOINT(8,4) = nGOTO920 

1140 IF(POINTC2,4)=1)*CPOINT(6,4)=0)*(POINT(8,4)=8)GOTO1200 

1150 RESET(X,Y):RESET(X+1,Y):RESET(X+2,Y) 

1155 Y=Y-1:SET(X,Y):SET(X+1,Y):SETCX+2,Y) 

1168 GOSUB1700:GOTO1120 

1200 PR1NTRT896 :PRINTRT896;- PRESS -;R»;- TO GO FORWARD. -;B»;- TO 

1218 PRINT -REVERSE. P TO GO UP. ■ :GOSUB1680 
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1220 IFC POINT C 2 , 4 )=0 >*C POINT C B , 4 ) = 1 )*C POINT C 8 , 4 ) = 1 )GOTO1000 

1230 IF C POINT C 2 , 4 ) = 1 )*C POINT C 6 , 4 )=0 )*C POINT C 8 , 4 ) = 1 )GOT01 100 

1240 IF(POINT<2,4)=1)*CPOINT(B,4)=0)*(POINTCB,4)=0)GOTO920 

1250 RESET C X , Y ) : RESET (. X+ 1 , Y ) : RESETC X+2 , Y ) 

1260 Y=Y+1:SETCX,Y '): SETC X+l ,Y ): SETC X+2, Y> 

1270 GOSUB1700:GOTO1220 

1300 FORZ=1TO150:NEXTZ:RETURN 

1400 FORZ=1TO80:NEXTZ: RETURN 

1S00 RESET( X, Y ) : RESETC X+ 1 , Y ) : RESETC X+2 , Y ) : X=X+ 1 

1510 SET C X . Y ) : SET C X+l , Y ) : SETCX+2 , Y ) : RETURN 

1B00 PRINT RTSB; : SETC 2, 4 ) : SETC S , 4 ) : SETC 8, 4 ) : RETURN 

1700 IFCP0INTCX+3,Y>=1)+CP0INTCX-1,Y )=1 )+C POINTCX, Y- 1 )=1 >GOTO1800 

1710 IF C POINT CX+l.Y- 1^ = 1 ) + CPOINTC X+2, Y-l) = l')+C POINT CX ? Y+1j = 1")GOTO1800 

1720 IF CPOINTCX+l,Y+l)=l)+C POINT'. X+2, Y+l >=1 )GOTO 1800 

1740 IFC X=1)+CX= 123 )GOT 0500 

1750 RETURN 

1800 I=INTCY/3)*64+CX/2) 

1810 FORO=1TO10 

1820 PR1NTATINTCD-1; '1*»*T* ; 

1830 GOSUB1300 

1840 PRINTATINTCD-1; 'CRASH* ; 

1850 GOSUB1300 

I860 N.O 

1870 CLS:GOTO5750 

1900 IFCX>=B3)*CY>25)GOTO1950 

1910 IFCX>=63)*CY<25)GOTO1970 

1920 1FCX<S3)*CY>25)GOTO1990 

1930 F0RK=1 13TO120: FOR J=37T 039: RESETC K, J ) : NEXT J : NEXTK 

1340 GOTO900 

1950 F0RK=5T012: F0RJ=1 1T0 13: RESETC K, J ) :NEXTJ : NEXTK 

I960 GOTO900 

1970 F0RK=5T012: F0RJ=37T039: RESETC K, J ) : NEXTJ :NEXTK 

1980 GOTO900 

1990 FORK=113TO120:FORJ=11TO13: RESETC K, J ): NEXT J : NEXTK 

2000 GOT 0900 

3000 CLS:Y=1:N=0 

3010 PRINT "CONGRATULATIONS YOU HfiUE MflDE IT THIS FAR NOW ALL YOU HAUE* 

3020 PRINT *TO DO IS LAND YOUR SPACE SHIP.* 

3030 PRINT: INPUT "DO YOU REQUIRE LANDING INSTRUCTIONS CY/N)";A 

3040 IFA=1GOTO7000 

3050 IFA=0GOTO3100 

30B0 GOT 03030 

3100 CLS:F=RNDC 1000 )+3500: S=RNDC 200 )+400 

3110 PRINTAT825; "\" ; --PRINTAT953; * t" ; :GOSUB1B00 

3120 F ORX= 1 16T 1 25 : F0RY=35T045 : SET CX,Y): NEXTY -.NEXTX 

3130 F ORX= 1 10TO 1 13 : F0RY=35T 038: SET CX,Y): NEXTY: NEXTX 

3140 F ORX= 1 10TO 1 13 :F0RY=42T045: SET CX,Y): NEXTY: NEXTX 

3150 SETC 114,35):SETC 115, 35) : SETC 114,45):SETC 115,45) 

3155 F0RX=1 1BT01 18: F0RY=39T04 1 : RESETCX, Y ) : NEXTY : NEXTX 

31B0 FORX= 1TO109 : F0RY=42T045 : SETC X , Y ) : NEXTY : NEXTX 

3200 Y=9 

3210 X=10:Y=Y+1 

3220 GOSUB4000 : GOSUB 1B00 

3230 GOSUB4000: PRINT ATB6; :F=F- 1: IFF<=0GOTO4220 

3240 RESETCX- 1 , Y ) : RESETC X, Y ) : RESETCX+1 , Y ) : RESETC X+2, Y ) 

3250 X=X+2:SETCX,Y):SETCX+1,Y):SETCX+2,Y) 



t 
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3260 IF(POINTC2,4)=0)*(POINT(6,4)=1)*(POINT(8,4)=1)GOTO3370 

3270 IF(POINT(2,4)=1)*(POINT(6,4)=0)*CPOINT(8,4)=1)GOTO3420 

3280 IF(POINT( 2, 4)=1 )*(POINT( 6 , 4 )=0 )*(POINT( 8, 4 )=0 )GOTO3470 

3290 IF(POINT(2,4)=0)*(POINT(6,4)=0)*(POINT(8,4)=0)GOTO3220 

3300 IF(POINT(2,4)=0)*(POINT(6,4)=0)*(POINT(8,4)=1)GOTO3Z20 

3310 IF( POINT ( X+3 , Y ) = 1 )+( POINT ( X+2, Y+l )=1 )GOTO3500 

3320 IF(P0INT(X+2,Y-1)=1 )+( POINT (X, Y+l)=l )GOTO3500 

3330 IFPOINT(119,44)=0GOTO5000 

3340 1FX>=121GOTO33S0 

3350 GOTO3230 

33B0 RESET ( X , Y ) : RESET ( X+ 1 , Y ) : RESET ( X+2 , Y ) : GOTO3210 

3370 SETC 2,4): W=RND( 20 ) : S=S-W: IFS<=0GOTO4200 

3380 1FW<5GOTO3220 

3390 F=F-(W*5):1FF<=0GOTO4220 

3400 Y=Y+1 

3410 RESET(X,Y-1):RESET(X+1,Y-1):RESET(X+2,Y-1):GOTO3230 

3420 SET(6,4):W=RND(20) 

3430 IFW<5G0T 03220 

3440 F=F - C W*5 ) : IFF < =0GOT 04220 

3450 Y=Y-1 

3460 RESET ( X , Y+ 1 ) : RESET ( X+ 1 , Y+ 1 ) : RESET C X+2 , Y+ 1 ) : GOT 03220 

347B SET (6,4): SET (8,4): S=S -RNDC 2 ) : IFS<=0GOTO4200 

3480 GOTO3220 

3500 IFX>120THENX=120 

3510 IFX<5THENX=5 

3520 GOTO 1800 

4000 PRINT AT 10; 'FUEL SUPPLY ";F;" LITRES. SPEED *;S;* M.P.H.* 

4010 RETURN 

4200 IF CS=0)+(S=-1)GOT 05000 

4210 S=0:PRINTAT340;"YOU'RE SPEED IS NOW RT 2ERO >'.!<!": GOTO4230 

4220 F=0 : PRINT RT340; "YOU ORE NOW OUT OF FUEL '. \\ * \ * : 

4230 RESETCX, Y) :RESET(X+1 ,Y ) :RESET(X+2, Y) 

4235 Y=Y+1:SET(X,Y):SET(X+1,Y):SET(X+2,Y) 

4240 GOSUB4000:IFY=42GOTO4260 

4250 GOTO4230 

4280 Y=39:GOTO1800 

5000 IF(F>=0)*(S>=-l)*(Y=40)*(tX=112)+(X=113)+(X=114)+(X=115))GOTO5500 

5010 IFPOINK 119,44)=1GOTO4210 

5020 CLS : PRINT AT340; "YOU EITHER CRASHED INTO THE HANGER" 

5030 PRINT AT406; "OR ELSE YOU CHEATED '. ! » >. '. " :GOTO5750 

5500 CLS : PRINT AT340; "CONGRATULATIONS YOU MADE IT HOME ": GOT 05750 

5750 PRINT: PRINT* TO PLAY AGAIN ENTER 1 IF NOT ENTER 2" ; : INPUTA 

5760 IFA=1GOTO60 

5770 CLS : PRINT AT340; "SEE YOU NEXT TIME" 

5780 FOR2=1TO2000:NEXTZ:CLS:END 

6000 CLS -.PRINT" SPACE DRIUE" 

6010 PRINT: PRINT "THE IDEA OF THIS GAME IS THAT YOU ARE THE PILOT OF A" 

6020 PRINT "SPACE SHIP. AND YOU WILL BE REQUIRED TO STEER YOUR SPACE" 

6030 PRINT "SHIP THROUGH FOUR METEOR SHOWERS AND THEN BRING IT INTO" 

6040 PRINT "LAND IN THE SPACE CENTRE.* 

S050 PRINT: PRINT "AT THE START OF THE GAME YOUR SPACE SHIP WILL BE" 

6060 PRINT "DRAWN. AFTER A FEW SECONDS YOU AND YOUR CREW OF TWO WILL* 

6070 PRINT "BOARD THE SPACE SHIP AND HAUING BOARDED, THE SPACE SHIP* 

6080 PRINT* WILL TAKE OFF. THE SPACE SHIP IS ON AUTOMATIC PILOT ALL" 

6090 PRINT* THE TIME EXCEPT FOR DURING METEOR SHOWERS AND WHEN YOU" 

6100 PRINT "WANT TO LAND, AT THESE TIMES YOU WILL BE REQUIRED TO" 

6110 PRINT 'STEER THE SHIP MANUALLY TO SAFETY.* 

6120 GOS.8000 
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6130 CLS: PRINT AT 10; "INSTRUCTIONS FOR METEOR SHOWERS !" 

6140 PRINT: PRINT "AFTER YOUR SHIP HAS TAKEN OFF, IT WILL RE- APPEAR ON* 

S145 PRINT°THE LEFT OF THE SCREEN FLYING THROUGH SPACE ON AUTOMATIC 

S150 PRINT 'PILOT. AFTER A WHILE A METEOR SHOWER WARNING WILL COME ON" 

B160 PRINT "THE SCREEN. YOUR SPACE SHIP WILL BE PUT INTO A CONFINED* 

S170 PRINT "AREA, AND METEORS WILL START APPEARING. A GAP WILL APPEAR" 

6180 PRINT" IN THE AREA YOU ARE CONFINED IN AND IT IS YOUR JOB TO STEER" 

6190 PRINT "THE SPACE SHIP PAST THE METEORS AND THROUGH THE GAP." 

6200 GOSUB8000 

6210 CLS:PR1NT"THE SPACE SHIP WILL START TO MOVE FORWARD AND WILL" 

6220 PRINT "CONTINUE TO DO SO UNTIL YOU CHANGE DIRECTION. INSTRUCTIONS" 

6230 PRINT "ARE GIVEN AT THE BOTTOM OF THE SCREEN ON HOW TO CHANGE" 

6240 PRINT "DIRECT ION. ONCE YOU HAVE CHANGED DIRECTION THE SHIP WILL" 

62SQ PRINT "CONTINUE IN THAT DIRECTION UNTIL YOU CHANGE IT AGAIN." 

6260 PRINT: PRINT "NOW A WORD OF WARNING." 

6270 PRINT: PRINT "SOMEONE BACK AT THE EASE WAS JEALOUS BECAUSE HE COULD" 

6280 PRINT "NOT GO IN PLACE OF YOU AND HE HAS TAMPERED WITH THE STEERING 

6290 PRINT "AS A RESULT THE STEERING WILL ALTER AS YOU CHANGE DIRECTION" 

6300 PRINT "THE INSTRUCTIONS AT THE BOTTOM OF THE SCREEN ARE ALWAYS" 

6310 PRINT "CORRECT* 

6320 GOSUB8000 

6330 CLS : PRINT * SHOULD YOU HIT A METEOR OR HIT THE BOUNDRY OF YOUR* 

6340 PRINT "CONFINED AREA YOU WILL CRASH AND YOU AND YOUR CREW WILL" 

6350 PRINT "BE KILLED. EACH METEOR SHOWER WILL GET WORSE THAN" 

6360 PRINT"THE PREVIOUS ONE. THE FIRST ONE IS ONLY A SMALL ONE AND" 

6370 PRINT "WILL GIVE YOU TIME TO CHECK YOUR STEERING WITHOUT MUCH" 

6380 PRINT"CHANCE OF HITTING ANYTHING." 

6390 PRINT: PRINT "ONCE YOU HAVE STEERED YOUR WAY THROUGH FOUR METEOR" 

6400 PRINT " SHOWERS YOU WILL BE READY TO BRING YOUR SPACE SHIP IN TO" 

6410 PRINT "LAND AT THE SPACE STATION. INSTRUCTIONS FOR LANDING" 

6420 PRINT "WILL BE GIVEN AFTER YOU HAVE SUCCESSFULLY GOT THROUGH* 

6430 PRINT "THE FOUR METEOR SHOWERS." 

6440 PRINT: INPUT "NOW PRESS ENTER TO START THE GAME " ; AS 

6450 GOT 060 

7000 CLS : PRINT AT20; "INSTRUCTIONS FOR LANDING." 

7010 PRINT: PRINT "THERE ARE FOUR THINGS ON THE SCREEN YOU HAVE TO WATCH" 

7020 PRINT" 1. AT THE BOTTOM OF THE SCREEN IS THE LANDING STRIP WITH" 

7030 PRINT "THE HANGER AT THE END. YOUR SPACE SHIP MUST COME TO REST" 

7040 PRINT "BETWEEN THE TWO ARROWS, WITHOUT TOUCHING THE TOP, BOTTOM* 

7050 PRINT "OR END OF THE HANGER." 

7060 PRINT" 2. ON THE TOP LEFT OF THE SCREEN IS YOUR FUEL SUPPLY * 

7070 PRINT *3. ON THE TOP RIGHT OF THE SCREEN IS YOUR SPEED INDICATOR* 

7080 PRINT* 4. THE POSITION OF YOUR SPACE SHIP." 

7090 GOSUB8000 

7100 CLS:PR1NT"THE SPACE SHIP WILL COMMENCE ITS LANDING APPROACH FROM" 

7110 PRINT "THE TOP LEFT OF THE SCREEN AND WILL KEEP MOVING FORWARD.* 

7120 PRINT* AS THE SPEED DECREASES THE SHIP WILL GRADUALLY LOSE HEIGHT. 

7130 PRINT*YOU MAY DO AS MANY ORBITS OF THE SPACE STATION AS YOU WANT* 

7140 PRINT "PROVIDED YOU DON'T RUN OUT OF FUEL." 

7145 GOSUB8000 

7150 CLS: PRINT "YOUR CONTROLS FOR LANDING ARE:-" 

7160 PRINT *1 PRESS THE 1— KEY AND YOUR SPEED WILL BE DECREASSED" 

7170 PRINT"BY UP TO 20 M.P.H." 

7180 PRINT* 2 PRESS ENTER AND YOUR SPEED WILL BE DECREASED BY EITHER" 

7190 PRINT"ONE OR TWO M.P.H. * 

7200 PRINT*3 PRESS P AND YOUR SPACE SHIP WILL GAIN HEIGHT." 

7205 GOSUB8000 
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7210 CLS: PRINT "IF YOU APPROACH THE HANGER TOO FfiST YOU CAN FLY ODER" 
7220 PRINT'THE TOP AND COME IN ON THE NEXT ORBIT. IF YOU FIRE TOO LOW" 
7230 PRINT "YOU CAN PRESS THE P KEY AND GAIN MORE HEIGHT FOR YOUR SHIP." 
7240 PRINT: PRINT "YOUR SPACE SHIP MUST LAND BETWEEN THE TWO ARROWS BUT" 
7250 PRINT "NOT TOUCHING ANYTHING. WHEN THE SPACE SHIP LANDS THERE," 
7260 PRINT "PRESS ENTER. YOUR SPEED AFTER YOU PRESS ENTER RT THIS" 
7270 PRINT "STAGE MUST BE ZERO. IF IT IS ABOVE ZERO YOU WILL CONTINUE" 
7280 PRINT "ON AND CRASH INTO THE END OF THE HANGER. IF YOUR SPEED IS" 
72S0 PRINT "BELOW ZERO YOUR SPACE SHIP WILL STOP AND CRASH TO EARTH. " 
730B PRINT "LIKEWISE IF YOU RUN OUT OF FUEL AT ANY STAGE YOUR SPACE SHIP 
7310 PRINT "WILL FALL TO EARTH. ALSO IF IT TOUCHES THE RUNWAY AT ANY" 
7320 PRINT "STAGE IT WILL CRASH." 

7330 PRINT: PRINT "NOW WH f_N READY TO START YOUR LANDING APPROACH"; 
7340 INPUT" PRESS ENTER"; A* 
7350 GOTO3100 
8000 INPUT'PRESS ENTER TO CONTINUE. "; AS: RETURN 



** LEUEL 11 SOFTWARE LISTINGS ** 

These have been processed, prior to printing, to improve the general 
comprehension ity of each program line. A single space has been inserted 
after each colon, to open up the listing and make it clearer to those of our 
readers not yet fully experienced in Level II. There is no need to include. 
these additional spaces when you enter these programs on your own '80. Most 
print statements will commence on a new line. The MICRO-80 printer still 
refuses, in spite of much encouragement -from us al I , to print a downward 
pointing arrow, which we would I ike to insert where ewer the original source 
contained a line-feed. Instead you will find EITHER a square bracket, OR an 
upward arrow. This will help you replicate the original source program. 
Ed. 



30 REM *« TRIG/BAS FINDING SIDES OR ANGLES OF TRIANGLES ** 

48 REM ** ROBERT A SUNNERS, 28 SUNCROFT ST, 
50 REM ** MT. GRAUATT, BRISBANE 4122 07 343 2598 
180 CLS: A=0: H=0: 0=0: ANG=0: DEG*=0: MIN#=0: SEC*=0: SD=0: 

S»=" ": T*=" *: S2=0 
110 FORX=30TO95: SETCX,6): NEXT 

120 F0RX=94T09S: F0RY=BT017: SET(X,Y): NEXT: NEXT 
130 Y=6: FORX=30TO95: SETCX.Y): Y=Y+ll/-65: NEXT 
148 F0RX=88T093: SETCX,3): NEXT 

150 F0RX=88TO89: F0RY=7T08: SET(X.Y): NEXT: NEXT 
160 PRINT*95,"A";: PRINT379, 

"ANGLE"; 
170 PRINT©305,"O";: PRINTS351, "H" ; : PRINT ©177, "90" ; 
180 PRINT@512, " " 

220 GOSUB1000 

221 IFO>0ANDANG>0THENGOTO230 

222 IFA>0ANDANG>0THENGOTO360 
,223 IFH>0ANDANG>0THENGOTO310 

225 IFO>0ANDA>0THENGOTO230 

226 1FO>0ANDH>0THENGOTO310 

227 IFA>0ANDH>8THENGOTO36B - 
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230 ' TRNGENT 

240 IF O=0THENO=fi*TRN(RNG*. 0174533): PRINT©305, INTCO* 10000+ .5)/10000; : 
G0T02S5 

250 lFfl=0THENR=O/TRN(flNG*. 0174533): PRINT©95, INT(fl*10000+.5)/10000; : 
GOT 0265 

255 IFO>0RNDR>0RNDRNG>0THENGOTO310 

2S0 1FRNG=0THENGOSUE6000: RNG=C: GOSUB6500: PRINT ©79, Dl ; D3; D6; 

265 1FH=0THENGOTO221 

270 PRINT©980, " ";: INPUT: GOTO100 

300 GOSUB1000 ' SINE 

310 IFO=0THENO=H*SIN(RNG*. 0174533): PRINT©305, 1NTC 0*10000+ .5)/ 10000; "- 
GOT 0335 

320 IFH=0THENH=O/SINC RNG* . 174533 ) : PRINT @35 1 , INT ( H* 10000+ . 5 ) / 10000 ; : 
G0T0335 

325 IFO>0RNDH>0RNDRNG>0THENGOTO360 

330 lFftNG=0THENS=O/H: GOSUE5000: ANG=Y: GOSUE6500: PRINT ©79, Dl ;D3; D6; 

335 IFR=0THENGOTO221 

340 PRINT©9G0," ";: INPUT: GOTO100 

350 GOSUE1000 ' COSINE 

360 IFR=0THENR=H*COSt RNG*. 0174533): PRINT©95, INT(fi*10000+.5)/10000; : 
GOT 0385 

370 IFH=0THENH=R/COS( RNG*. 0174533): PRINT ©351, INTCH*10000+.5 )/10000; : 
GOT 0385 

375 IFR>0RNDH>0RNDRNG>0THENGOTO310 

380 1FRNG=0THENS=R/H: GOSUB5500: RNG=Y: GOSUB6500: PRINT ©79, Dl ;D3; DG; 

355 IFO=0THENGOTO221 

390 PRINT@960," *;: INPUT: GOTO100 
L030 PRINT, "ENTER RNGLE - BEGREES ";: INPUT 3EG* 
1005 IFDEG*>=90THENPRINT$G40,'NOT TRIANGLE";: GOTO1000 
1010 PRINT," MINUTES *;: INPUTMIN* 

1015 lFMIN#>S9THENPRlNTe640,'TRY RGRIN" ; : GOTO1000 
1020 PRINT," SECONBS ";: INPUTSEC* 

1025 IFSEC*>59THENPRINT@640, "TRY RGRIN*;: GOTO1000 
1030 PRINT, "ENTER KNOWN SIDE NRME, LENGTH *;: INPUTS*, SD 
1040 RNG=INTt(DEG*+MIN#/60+SEC*/'3600)*10000+.5)/10000 

1045 IFRNG=0 PRINT, "ENTER OTHER KNOWN SIDE, LENGTH ";: INPUTTS.S2 
1050 IFS*="R"PRINT©95,SD; : fi=SD: GOTO1080 
1060 IFSS=*H"PRINT©3S1,SD; : H=SD: GOTO1080 
1070 IFSS="O"PRINT©305,SD; : 0=SD 
1080 GOSUB6500: PRINT©79, Dl ;D3;D6; 
1090 IFTS=-R"PR1NT©95,S2; : fi=S2: GOTO1120 
1100 IFT*=*H"PR1NT@351,S2; : H=52: GOTO1120 
1110 IFTS=" O" PRINT ©305, S2; : 0=S2 
1120 RETURN 
4990 END 
5000 ' SINE 

5010 X=S: IFRBS(SK = .707107THEN5060 
5020 X=1-S*S: IFX<0THENPRINTS; 

"IS OUT OF RANGE": STOP 
5030 W=X/2: 2=0 

5B40 Y=CX/W-W)/2: IF( Y=0)+C Y=Z)THENX=W: GOTO50G0 
5050 W=W+Y: 2=Y: GOT 05040 

50G0 Y=X+XL3/G+X15*.075+Xt7*4.4G4286E-2 
5070 W=Y+XL9*3.038194E-2 

5080 IFRBS(S)>.707107THENW=1.570796-W 
5090 Y=W*57. 29578: RETURN 
5490 END 
5500 ' COSINE 

5510 GOSUB5000: Y=90-Y: W=l .570795- W: RETURN 




! 
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5530 END 

5808 * TANGENT 

6010 X=0/A: IFX<0THENT=-1 

6020 IFX=0THENT=0 

B030 IFX>0THENT=1 

SO40 X=AES(X): C=0 

6850 IFX>1THENC=1: X=l/X 

6060 A=XE2 

6070 B=( ( 2. 86623E-3*A- 1 . 61657E-2 )*A+4 . 23096E-2 )*A 

60S0 B=( ( UB-7.52S3E-2)*A+. 186563)*A- . 142083)*A+. 199936 )*A 

6090 A=( (B-. 333332 )*A+1)*X 

6130 IFC=1THENA=1. 570796 -A 

SI 10 A=T*A: C=A*S7. 29578: RETURN 

6490 END 

65Q0 ' ANGLE CONVERSION 

6510 D1=1NT(ANG): D2=ANG-B1 'DEGREES 

6520 D3=INT(D2*60): D4=D2*S0 'MINUTES 

6530 D5=D4-B3: D6=INTCD5*68) 'SECONDS 

65 40 RETURN 



5 'AUTHOR T. N. HENDERSON, 3 REECE STREET, LUINA, TAS, 7351 

20 DEFINTQ: 2=3: X=l: Y=l: Q*=*x-: AS=-o": P»= 

"COMPUTER 
30 GOSUB40: GOT 030 
48 CLS: PRINT @5, 

"GAME -X," TIC T A C T E" , * IQ = 

": PRINT@296, 

*YOU HAUE "Q»: PRINT@424,PS 

" HAS -A$: PR1NT@B5,STRINGS(21,CHR*(130)) 
50 A=0: B=0: C=0: D=0: E=8: F=0: G=0: H=0: 1=0: FORM=0TO35: 

SET(M,13): SET(M,13): NEXT: F0RN=8T024: SET(11,N): SETC25.N): 

NEXT: 1FY=1THEN80 

60 RS=AS: T=l: RANDOM: U=RND(3): 0NUG0TO6 10, 620, 630, 640, 600, 650,660,670, 
680 

80 R*=Q»: T=ll: PRINT @853, 

"YOUR TURN": W»=1NKEYS: IFWS=- C -THENRUNELSEIFW*=- S "THENRETURNELSEIFWS= 
* n ■ THEN738ELSEIFW*= " ■ THEN760ELSEIFWS= " t * THEN242 
100 IFW*=- l m RNDA=0THEN610ELSEIFWS=-2-ANDB=0THEN620ELSEIFW»=-3- ANDC= 

0THEN630ELSEIFWS= " 4" ANTJD=0THEN640 
1 40 IFW«= " 5 • ANDE=0THEN600ELSEIFWS= • 6 « ANDF=0THEN6S0ELSEIFWS= * 7 ■ ANDG= 

0THEN660ELSEIF W*= ' 8 * ANDH=0THEN670ELSE1FWS= - 9 * AND I=0THEN680 
2e0 IFVaS=-x-ORWS=*o-Qj=w* : IFQS=-o"THENA*=*x-: RETURNELSE A*= - o " : 

RETURN 
210 IFW*=-L*PRINT$859, ; : INPUT 

" IQ = -;2: IF2< 10RZ>52=3 
220 PRINT@56,2;: GOTO80 

240 IFA+B+C=660RF~E+B=550RI-H+G=880RG-D-A=220RH-E-B=U0RI-F+C=660RI-E-A=- 
330RG-E+C=55PRINT ©849, "GOOD MOUEM YOU WIN"- J-J+l- 

GOTO730 



242 PRINT@128, * * 
PRINT $326,' " 
PRINT@525 , " " 



PRINTG134,- ';: PRINT@141," -;: PRINT@323, " ";: 
PRINT@333, ' " ; : PRINTS512, • - ; : PRINT@518, " " ; : 
IFW*=- fTHEN80ELSE710 

250 R*=A»: T=l: PRINT@853,P»" S" : IFC+F=9ORA+E=6ORH-G=1IFI=0THEN680 

260 IFA+C=4ORH-E=3IFB=0THEN620 

270 IF A+B=30RI -F=3ORG-E=2IFC=0THEN630 

280 IFA+G=8ORF-E=21FTJ=0THEN640 

290 IFH-B=6ORF-D=2ORI-A=8ORG-C=4IFE=0THEN600 
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3B0 
310 
320 
340 

350 

3S0 
370 
380 
330 
400 
410 
420 
430 
450 



430 

510 

520 

525 
530 
535 
540 
570 
530 

600 
B10 
820 
830 
640 
650 
660 
670 
680 
630 
700 



710 
720 
730 



740 
750 
760 



1F1-C=6ORD+E=9IFF=8THEN650 

IFR+D=5ORC+E=8ORI-H=1IFG=0THEN660 

IFB+E=70R1 -G=2IFH=0THEN670 

F0RQ=2T 025*2: SET ( Q+2 , 33 ) : RESET ( Q-2, 33".' : NEXT: IFB+C=50RG-D=30RI~E= 

4ORC-B=11ORG-D=33ORI-E=44IFR=0THEN610 

IFR+C=44ORH-E=33IFB=0THEN620 

IFfl+B=33ORI-F=33ORG-E=22IFC=0THEN638 

IFfl+G=880RF -E= 1 1IFD=0THEN640 

IFH-B=66ORF-D=22ORI-R=83ORG-C=44IFE=0THEN600 

IFI-C=86ORB+E=99IFF=0THEN650 

IFR+D=S5ORC+E=88ORI-H=111FG=0THEN660 

I FB+E=770R1 - G=22IFH=0THEN670 

IFC+F=39ORR+E=66ORH-G=11IFI=0THEN580 

ONZGOT 060 , 600 , 530 , 5 10 , 450 

1FH-F-E-B=150RH-D-E-B=370RH-D-F-E=330RH-D-F-B=360RH-E-I-B=220RE=55FINBD 

F-B=360RI-D-G-fi=470RI-D-E-fi=430RH-ft-l-E=630RI-E-ft=430RG-F-E=6IFC= 

0THEN630 

IFF-B-H-E=310RE-B-H-ft=240RF-ft-I-C=430Rl-B-E-ft=710RF-ft-l-E=410RH-F-E-= 
17ORH-C-E=50IFG=0THEN6B0 

IFD-B-H-E=30RB-B-F-E=110RD-E-H-R=130RB-C-G-E=90RG-B-E-C=470RH-ft-E= 
72IF1=0THEM680 

IFG-F-E-C=30RH-F-D-B=1B0RH-F-I-B=110RH-C-1-G=390RG-F-I+C=50RC-D=230RG- 

B=75ORB-H=14ORH-G=81ORC-I=24ORG-I=68IFR=0THEM610 

IFI-C=36ORD-F=38ORF-B=62ORG-R=76IFB=0THEM620 

IFG+E=62ORG+R=18ORI-B=97ORR-F=5ORfl-I=2IFC=0THEN630 

IFG-C-E=39IFB=0THEN620 

IFI-G=32ORH-G=81IFB=0THEN640 

1FR-C=8ORE-C=52ORR-H=3ORI-B=95ORI-R=38IFG=8THEM660 

IFR-E=60RE-R=540RH-B=860RC-R=32ORC-H=250RG-F=71ORC-G=260RG-C=741FI= 

0THEN680 

E=5*T : GOTO708 

R=1*T: GOT 07 00 

B=2*T: GOTO700 

C=3*T : GOT 0700 

D=4*T: GOT 0708 

F=6*T: GOT 07 00 

G=7*T: GOTO700 L 

H=8*T: GOTO700 

I=9*T: GOT 0700 
IFZ=1RND1>0IFR=0ORE=0ORC=8ORD=8ORE=0ORF=0ORG=0ORH=0THENE00 
IFT= 1 1THEN240ELSEPRINT@704 , CHRS( 31) : IFfi+B+C=60RF-E+B=50Rl -H+G=80RG-D- 1 
R=2ORH-E-B=1OR1-F+C=6OR1-E-R=3ORG-E+C=5PR1NT(5>850 ? P$- WINS TRY RGftai 
*: K=K.+ l: GOTO730 

IFR=0ORE=0ORC=0ORD=0ORE=0ORF=0ORG=0ORH=0ORI=01FT=11THEN250ELSEIFT= 
1THEN80 

L=L+1: PRINT&855, 
"NO WINNER 

PR1NT@616,"DRRWN GRMES "L: PRINT*714, 
•YOU HROE WON "J," "PS* HRS WON 
•K: PRINT @383, 
"GRME -X - FINISHED 
" ; : IFY=1Y=2ELSEY=1 
lFW»="n "RETURN 
WS=INKEY»: IFWS=" "THENX=X+1: 



IFE=0PR1NT®329,RS; : 
1FR=0PRINT&134,RS; : 
1FB=0PR1NT@201,RS; : 
IFC=0PR1NT@207,RS; : 
IFD=0PRINT@322,RS; : 
IFF=0PRINT$335,RS; : 
IFG=0PRINT»450,RS; : 
IFH=0PRINT$4S7,RS; : 
IF1=0PRINT$463,RS; : 



PRINT©128, - 1- 
PRINT @326, '5* 
PRINT $525, *9" 



PRINT@134.-2- 
PRINT@333, "5" 
GOT 080 



RETURNELSE750 

: PRINTG141, '3'; : PRINT3320, "4" ; : 

: PRINT»S12, *7" ; : PRINT&518, "8" ; : 






f 
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HOUSEHOLD BUDGET t 

AUTHOR L J LAWES, 21 RODNEY ST, LINDUM, 4178, QLDt 
COPYRIGHT CO 1980 M1CRO-80, P.O.BOX 213, GOODWOOD, t 
S.A. 5034. TELEPHONE (08> - 71 9S83 
10 CLS: CLEAR 7000: DEFDBLL: DEFSTRfl: DEF1NTI,J,X: DIMAC101): 

DIMLBC101): DIMLTC101) 
20 F1S=-DATE REF NO DETAILS TOTAL... A/C NO DEBIT ... CREDIT .. * 

40 F3S=**#*#*.##° : F43= 

**,***,##*.**-" 
50 PRINT" ***MENU**** 

60 PRINT"* 1 * KEYBOARD INPUT",** S * PRINT JOURNALS 

» 

70 PRINT " * 2 * CASSETTE INPUT " , * * 7 * PRINT LEDGER BALANCES 

80 PRINT"* 3 * READ MEMORY ","* 8 * LINEPRINTER UTILITY 

90 PRINT** 4 * EDIT MEMORY","* 9 * LEDGER ACCOUNTS 

100 PRINT"* S * SAVE ON CASSETTE* 

150 XS=**: X5=INKEYS: X=UALCXS): IFX«=* *THEN150 

ISO ON X GOTO 170,230,280,340,360,500,1010,1250,1300 

170 CLS: PRINT 

* DATE REF NO DETAILS TOTA1 A/C NO DEBIT. .. CREDIT. 

17 1 PRINT " ! '. ! \ ,...-.. \ ».,...-..'., 

180 FORI=1TO100 

190 1FA( I)O-*THEN210 

200 A-"*: INPUT A: IF LENC A)>62THEN205 

203 IFA="EX1T"THEN220 

204 GOTO206 

205 PRINT "ERROR. . .ENTRY EXCEEDS MAXIMUM LENGTH*: GOTO200 

206 ACI)=ft 
210 NEXT 
215 1=1-4 

220 CLS: PRINT 

"END OF BATCH. . .MEMORY CONTAINS ";I;" RECORDS*: 11=1 : GOTO50 
230 INPUT "HOW MANY RECORDS ARE THERE ON CASSETTE * ; II 
235 XS=" * : INPUT 

"PRESS <ENTER> WHEN READY TO LOAD DATA *;X* 
240 FOR I=1T0IISTEP4 

250 INPUT*- 1, AC 1), ACI+1),A(I+2),AC 1+3) 

255 PRINTA(l): PRINTACI + 1): PRINTACI+2): PRINTACI+3) 
260 NEXT 
270 CLS: PRINT 

•INPUT FROM CASSETTE COMPLETE*: GOTO50 
280 CLS 

230 PRINT "CONTENTS OF MEMORY" 
330 FOR 1=1TO100 

310 PRINT *<";!;*>•: PRINT AC I ) : IFAC 1 )=* "THEN330 
320 IFI=BOR1=16ORI=24ORI=32ORI=48ORI=48ORI=S6ORI=64ORI=72ORI=80ORI=88ORI= 

96THENFORTV.= 1TO250: NEXTT5S 
325 NEXT I 
330 PRINT 'CONTENTS OF MEMORY READ": INPUT 

■PRESS <ENTER> TO CONTINUE * ; X: CLS: GOTO50 
340 CLS: PRINT 

'MEMORY EDIT*: INPUT 

•WHICH LINE NO DO YOU REQUIRE* ; I 
350 PRINTSTRINGSC 10,92); * CURRENT LINE UNDER REVIEW *: STRINGS ( 10, 9Z) : 

PRINT* *;ACI): PRINT 

•IF AMENDMENT REQUIRED RE -TYPE LINE. .. OTHERWISE HIT <ENTER>t 
HIT <ENTER> TO OIEW THE NEXT LINE IN THE BUFFER* 
TYPE & ENTER 'EXIT' TO RETURN TO MENU": INPUT AC I) 
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510 


PRINT • * 


1 


* 


520 


PRINT"* 


2 


* 


530 


PRINT " * 


3 


* 


540 


PRINT** 


4 


* 


550 


PRINT " * 


5 


* 


560 


PRINT " * 


G 


* 



351 Z=0: INPUT Z*: Z=UAL(ZS) 

352 IFZS=*EXIT*THENZS=-*: GOTO50 

353 IFZ=0THEN 1=1+1: GOTO350 

354 IFZO0THEN I=Z: GOTO350 

368 PRINT "SAUING ON CASSETTE" : INPUT 

■PREPARE CRSSETTE. . .HIT <ENTER> m ;X 
365 PRINT "DRTR NOW BEING RECORBED ON CASSETTE ... PLEASE WRIT" 
370 FOR I=1TO100STEP4 

380 PRINT*- 1 , ft( . I ) , ft( 1 + 1 ) , A( 1+2 J , A( 1+3 ) 

385 PRINTACI >: PRINTACI+1): PRINTRII+2): PRINTACI+3) 
390 IF A(I)=-"THEN405 
400 NEXT 
405 1=1-4 
410 PRINT 'RECORDING COMPLETE ... THERE ARE "; I;* RECORDS ON TAPE" : 

GOT 050 
490 INPUT ■ < ENTER > * ; GO 
500 PRINT: PRINT: PRINT 

* * * JOURNftLS AVAILABLE * * *" 

PRINTOUT OF MEMORY" 

CP CftSH PAYMENTS JOURNAL" 

CR CftSH RECEIUED JOURNAL" 

GJ GENERAL JOURNAL" 

SJ SftLES JOURNAL" 

RETURN TO MRIN MENU" 
570 X«="": XS=INKEYS: X=UAL(XS): IFX*=" "THEN570 
580 ON X GOTO 590,660,660,660,660,50 
590 CLS: PRINT 

"PRINTOUT OF MEMORY" 
600 FOR I=1TO100 
610 1FR( 1 )=* "THEN640 
620 PR1NT"<" ;I; ">": PRINT A(l) 
630 LPR1NT * < " ; I ; " >" j " ■ ; ftf. I ) 

640 NEXT 

650 PRINT "PRINTOUT COMPLETE": LPRINT 

-PRINTOUT COMPLETE": GOTO500 
660 INPUT "IS THE L1NEPRINTER REQUIRED (Y/N)";P* 
665 IFP»<>*Y- ftND PSO'N* THEN660 

670 INPUT "WHICH DftTE DO YOU REQUIRE * ;ES 

680 GOSUB900 
690 FOR I=1TO100 
700 IF RCI)=-"THEN780 

710 IF E*OLEFTS(R( I), 6") AND KRSOMIBSC R( I ~) , 48,2 ) THEN780 
720 PRINTRCI): 1FPS="N*THEN750 
730 IFPS="Y"THEN LPRINT Ad) 

750 DAS=MIDS(fl(I),31,8): Dft*=UftL( DftS >: DG*=DG*+DA# 
760 DRS=MID*(ACI),47,8): DR*=UAL(DR* ) : DT*=DT#+DR# 

770 CRS=MID»(A(.I),55,8): CR*=UAL( CRS): CT#=CT*+CR#: BL*=BL#+DR*-CR# 
780 NEXT 
790' PRINT E«;' TOTALS";: PRINTTABOl )USINGF4S; DG#; : PRINTTABC47) 

USINGF3S;DT*;CT* 
800 1FP*=*Y"THEN LPRINT ES; 

TOTRLS*;: LPRINTTABC 31 )USINGF4S; DG*; : 
810 DG*=0: DT*=0: CT*=0: GOTO490 
820 INPUT" IS THE PRINTER REQUIRED (Y/N) ";PS 
830 IFPSO'Y" RND PSO'N" THEN820 ELSE RETURN 
S00 ON X-l GOTO910,940,960,980 
910 CLS: PRINT 

•CRSH PAYMENTS JOURNRL FOR (DATE)*;ES: 
920 IF P*=*Y*THEN LPRINT 

"CASH PAYMENTS JOURNRL 

925 KR»=*CP": GOTO 1000 

940 CLS: PRINT 

"CRSH RECEIUED JOURNAL 



LPRINTTRBt 47 )USINGF3S; DT**B 






PRINT F1S 



FOR CDATE)";ES: LPRINT F1S 



FOR (DATE)-;E»: PRINT Fl* 
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950 

955 
950 

970 

975 

980 

990 
995 

1B00 

1010 
1020 
1030 
1040 
1070 
1080 
1030 
1100 
1110 
1120 



FOR (DATE)*;ES: LPRINT Fl* 



FOR (DATE)";ES: PRINTF1* 



FOR CrifiTE)-;E*: LPRINTF1* 



FOR CDATE)";ES: PRINTF1S 



FOR (DATE)";ES: LPRINTF1S 



* LEDGER BALANCE OPTIONS * » *" 

* DISSECTION SUMMARY THIS BATCH" 

* RETURN TO MAIN MENU* 



1140 
1150 

1160 
1170 
1180 
1130 

1200 
1210 
1220 

L230 

1240 

1250 
12S0 



1270 

1280 

1290 
1300 
1310 
1320 
1330 

1350 

13B0 



IFP*="Y"THEN LPRINT 
"CASH RECEIVED JOURNAL 
KA*= " CR* : GOTO 1 000 
CLS: PRINT 
"GENERAL JOURNAL 
IFPS="Y"THEN LPRINT 
"GENERAL JOURNAL 
KAS=*GJ": GOTO1000 
CLS: PRINT 
"SALES JOURNAL 
IFP«="Y"THEN LPRINT 
"SALES JOURNAL 
KAS="SJ" 
RETURN 
CLS 

PRINT"* * 
PRINT"* : 
PRINT"* ; 
GOSUB820 

X«=*": XS=INKEY5: X=UAL(XS): IF X»=" "THEN1080 
ON X GOTO 1100,50 
FOR J=1TO100". LBCJ)=0: NEXTJ 
FOR I=1TO100 

J=UAL( MIDSt At 1 ) , 42 , 2 ) ) : L1=UAL( MIDSC A( I ) , 47 , 8 ) ) : L2=0ALC MIDSC AC I ) . 55 , 8 > 
): L=L1-L2: LBC J )=LBC J)+L: LTC J )=LT( J)+LB( J ) : L=0: L1=0: 
L2=0 
NEXT1 

PRINT-DISSECTION TOTALS": IFPS="Y"THENLPRINT 
•DISSECTION TOTALS" 
FOR J=1TO100 
IF LBC J)=0THEN1200 

PRINTJ,: PRINTTABC16)USINGF4S;LBCJ): L=L+LB( J > 
IFPS="Y"THENLPRINTCHRSC 15 )J, , : LPRINTTAB( 48 )USINGF4*;LBC J ) : 
LPRINT CHRSC 14) 
NEXTJ 

PRINT "TOTAL" ", : PRINTTAB( 1B)USINGF4S;L 
IFPS= " Y " THENLPR1NT 

•TOTAL" , : LPRINTTABC 48HJSINGF4S; L 
L=0: PRINT 
"END OF RUN" 
IFPS="Y"THENLPRINT 
"END OF RUN" 

INPUT'PRESS ENTER TO CONTINUE " ;X: GOTO1010 
CLS: PRINT: PRINT 
"LINEPRINTER UTILITY t 

(TYPE HEADINGS OR NOTES AS REQUIRED - TYPE 'EXIT' TO RETURN TOt 
THE MAIN MENU)" 
MS=*": INPUTMS: IFMS= 
"EXIT"THEN50 
PRINTMS: LPRINTMS 
GOTO1270 

PRINT" * * * LEDGER ACCOUNTS * * ** 

INPUT "IS THE LINEPRINTER REQUIRED CY/N) ";PS 
IFPS< >*Y" ANDPS< >"N*THEN1310 
INPUT "WHICH ACCOUNT NO DO YOU REQUIRE ?T 
CENTER '999* TO EXIT AND RETURN TO MENU) ";N 
1FN>=1ANDN<=100GOTO1370 
IFN=999THEN50ELSE1330 
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1370 PRINTF1S: IFPS=*Y-THENLPR1NTF1S 

1380 FORI=1TO100: IFAC I) = " "THEN1440 

1390 IFN< >UALC MIE *C AC I ) , 42 , 2) )THEN1440 

1400 PRINTAC1): IFPS="Y"LPRINTAC I ) 

1420 DR*=UALCMIDSC fid ), 47,3)): CR*=OALCMIDSC AC I ) ,55, 8) ): DT*=DT#+DR*: 

CT*=CT*+CR*: GT#=GT*+DR#-CR# 
1440 NEXT 

1450 PRINT'TOTALS * ; : PRINTTABC38)USINGF4S;DT*;CT# 

1460 IFPS="Y°LPRINT 

-TOTALS •;: LPRINTTAEC38)USING F4S;DT#;CT* 

1470 PR1NT"BALANCE OF ACCOUNT * ; : PRINTTABC38)USINGF4S;GT* 

1480 IFPS=*Y"LPRINT 

"BfiLANCE OF ACCOUNT • ; : LPR1NTTABC 38HJSING F4$;GTt 

1480 GT*=0: DT*=0: CT*=0: PRINT: PRINT: IFP*=" Y'LPRINT* ": LPRINT 

1500 GOTO 1330 



100 REM *♦* SUPER SI2ZLER *** 






110 REM AUTHOR ROBERT A SUNNERS, 26 SUNCROFT ST 
120 REM MT. GRAUATT, BRISBANE 4122 - 07 349 2598 
125 REM MEM REO 8K 
130 CLS: PRINT, 

•SUPER SIZZLER IS A GAME OF LIFE": PRINT, STRINGS* 31, " + " ): 

PRINT: PRINT, 

•TO BUILD A.UAN FROM THE GROUND UP YOU MUST FIRST MAKE SOME MONEY. USE 

THE *;CHR$C93);" AND " ; CHRSC94); * KEYS *; 
140 PRINT'TO POSITION YOUR GUN ON THE GAPS IN THE BARRIERS. - : 

PRINT, "FIRE THE GUN BY PRESSING THE SPACER BAR. YOU CANMOUE THE GUN 

FASTER BY PRESSING THE 9 KEY AFTER THE DIRECTION HAS BEEN 

ESTABLISHED BY THE ARROW KEY.' 
150 PRINT, 'HITTING THE * TARGET PAYS YOUR WAGE - HITTING THE X TARGET 

WINS YOU A VAN PART FOR FREE. HITTING THE BARRIERS COSTS YOU MONEY. 

WHEN YOU HfiOE SUFFICIENT CASH YOU WILL AUTO - MATICALLY BUY A UAN 

PART . " 
160 PRINT "HOWEUER, IF YOUR BILLS GET TOO HIGH YOU WILL BE FORCED TO SELL 

YOUR NEWEST PURCHASE. << ENTER >>";: INPUT A 

170 DATA "CRUNCH >!*,"WHUMP ! !!*,' CRASH ! >» * , *BANG \ \ \ \ * , "WHAMMY !!", "SMASH 
in 1 

180 DAT A J ACKS , CHASSIS , ENGINE , BODY , WHEELS , RADIO , TRIMS , VENT S , DOMES , TAKE OFF , 

50 , 750 , 650 , 2200 , 500 , 150 , 50 , 150 , 220 , 220 
130 CLS: DIMOLC 12),PTSC12): IN=1: F0RN=1T06: READNSCN): NEXT: 

FORX=1TO10: READPTSCX): NEXT: FORX=1TO10: READULCX): NEXT: 

US= "$**###.*#": BLS= 

" - *: PR=1: PS=-1: CP=OLCPR) 

Z00 PRINT @66, CHRSC 173 ) ; CHRSC 170 ); CHRSC 149 )i CHRSC 159 ) ; CHRSC 170 ) ; CHRSC 145) ; 

CHRSC 159); " ": CHRSC 136); CHRSC 136); CHRSC 136); 
210 PRINT© 194, CHRSC 173); CHRSC 170); CHRSC 168);CHRSC 133): 

CHRSC 144 ) ; CHRSC 183 ) ; CHRSC 170 ) ; CHRSC 133 ) ; CHRSC 144 ) ; 
223 FORY=0TO16STEP2: FORX=0TO1: SETCX.Y): SET(X+92,Y): 

SET(X,Y+31): SETCX+46, Y+31 ) : SETC X+82, Y+31 ) : SETCX+126.Y+31 ): 

NEXT: NEXT 
230 FORX=0TO4STEP2 : PRINT e960+X. CHRSC 179); : NEXT: FORX=19T061STEP2: 

PRINT3960+X, CHRSC 179); : NEXT: F0RX=94T0125: SETC X, 10): NEXT: 

F0RX=84T0125: SETCX,37): NEXT 
240 PRINT S733 , CHRSC 183 ) ; CHRSC 170 ) ; CHRSC 170 ) ; CHRSC 144 ) ; CHRSC 181 ) ; CHRSC 138 ) ; 

CHRSC 148); 
250 FORX=0TO127: SETCX,0): SETCX,21): SETCX,23): NEXT: FORX=0TO127: 

SET C X , 16 ) : SETC X , 3 10 : NEXT : PRINTS384 , " " ; : TGS= 
"SSSSSSSS": F0RX=1T08: PRINTTGS; : NEXT 



CHRSC 158 ) ; CHRSC 170 ) ; 
SETCX+126,Y): 



€ 
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268 REM * SPARE PARTS SHOP * 

270 FORX=6TO3BSTEP10: F0RY=33T036STEP3: SET(X,Y): SEKX+l.Y): 

SET(X+2,Y): SETt.X+3,Y): NEXT: NEXT 
280 FORX=4TO34STEP10: F0RY=34T035: SETCX.Y): SETCX+l.Y): SET(X+6.Y): 

SET(X+7,Y): NEXT: NEXT: 1FXX= 1THENRETURN 
290 F0RY=38T043: SET(27,Y): NEXT 
338 F0RX=32T041: SET (X, 38): IFX>35ANDX<38THENX=38: NEXTELSENEXT : 

IFXX=1THENRETURN 
310 PRINT @848.CHRSC 48); : F0RX=32TO3GSTEP2: SET(X,43): NEXT: 

F0RX=37T041STEP2: SETCX.40): SEKX.41): NEXT: 1FXX=1THENRETURN 

320 PRINT3304 , "BANK* ; : PRINTS747 , CHR*C 94 ) ; CHRSC 94 ) ; : PRINTS764 , CHR*( 93 ) ; 

CHR*( 93 ) ; : PRINT ©749 , 

'PARTS CATALOGUE';: PRINT @966, 

"PARTS STORE";: PRINTS112, 

"GAIN*;: PRINT3176, 

'LOSS*;: GOSUB1200: PS=0 
580 REM * TARGET FIRING OPERATION * 
510 GN=B0G: GG=G0: RANDOM: F0RX=1T05: P=RND(63): PRINTS384+P "X" ; : 

NEXT 
520 GH=30: PRINT ©GN, 

C *;r FORM=GGTOGG+6: SETCM,GH): NEXT: FORY=1TO10: A( Y )=RND( 126) : 
B(Y)=RNDC127): NEXT 

530 FORX=0TO127: FORY=1TO10: IFA(Y)>124THENTA=AtY) : ACY)=0: . 

RESETC ACY)+2, 21): SETCTA.21): SETCTft+1, 2DELSERESETC ACY )+2,21 ): 
RESETC AC Y)+l, 21): SETCAC Y ),21 ): TX=X: TY=Y: GOSUB560 : 
X=TX: Y=TY 

540 IFBCYX3THENTB=BCY): BCY)=127: RESETCBlY)-2,23>-- SETCTB.23): 

SETCTB-l,23)ELSERESETCBCY)-2,23): RESETCBC Y)-l, 23): SETCBCY),23) 
550 ACY)=ACY)+1: BCY)=BCY)-1: NEXT: NEXT: GOT 0530 
5G0 REM * FIRING SYSTEM * 
570 A*= * * : AS=INKEYS : IFA*= * *THENRETURNELSEIFC AS< >CHRSC 8 ) ) ANBC A*< >CHRSC 9 ) 

ANDASK >CHRSC 64 ) )THENG0SUB618 : RETURN 
580 IFAS=CHRSCB)THENDRS="L*: GOTO590 ELSEIFAS=CHR*C9)THENDRS='R* : 

GOTOG08 ELSEIFA*=CHR*C64)THEN650 
590 IFGG>2THENPRINT©GN-1,* t ";: SETCGG-2, 30): SETCGG-1,30): 

RESETC GG+6, 30): RESET ( GG+5, 30): GG=GG-2: GN-GN-L: RETURNELSERETURN 
600 IFGG<H9THENPRINT®GN+1," L *;: SETCGG+8,30) : SET ( GG+7 , 30 ) : 

RESET (GG, 30): RESET CGG+1 ,30): GG=GG+2: GN=GN+1: RETURNELSERETURN 
B10 IFAS=CHRSC32)THEN620 ELSEIF AS=CHR*C 64 )THEN658 ELSERETURN 
620 M=PEEK(GN+15168): FP=GG+3: F0RD=26T013STEP-1: SETCFP.D): 

RESETC FP, D+l ) : IFPOINTCFP , D-l )=-lTHEN630 ELSEIFD=19ANDC M=36 )0RCM=R8) 

THENNEXT: G0T0B4B ELSENEXT: RETURN 
G30 PRINTSGN," t *;: RESETCFP,D): PRINT@GN-62, * * ; : N=RND(6): 

PRINTNSCN);: FORU=1TO100: NEXT: GOSUB700 : PRINT@GN-62, 
* ; : RETURN 
648 PRINT 9GN," L *;: IFM=36THENPRINT@GN-19J.,CHRSC 3G); : GOSUB670: 

WW=RNDC 30080 V 100: PRINT© 1 17, USINGUS; WW; : PR1NTS1B2, 

";: GOSUB770 : RETURNELSEPRINTeGN-191,CHRSC88); : 

GOSUB670: PS- Is TT=TT+CP: WW=0: GOSUB720 : RETURN 
G50 IFBRS=*L*THENDS=INKEYS: IFB5=* * THENGOSUB590 : GOTOB50 ELSERETURN 
6G0 IFBR*="R-THEND»=INKEY«: IFD$=" *THENGOSUBG00 : GOTOGB0 ELSERETURN 
B70 PRINT ©GN," » ;: FORM=GGTOGG+G: RESETC M, 30): NEXT: GG=B0: 

GN=G0B: PRINTSGN, 

* t *;: FORM=GGTOGG+6: SETCM,GH): NEXT: RETURN 
700 REM * BILL CALCULATIONS * 
710 BL=RNBC 20000 V 100+50: PR1NT©181,USINGUS;BL; : PRINT@117, 

* ; : TT=TT-BL 
728 PRINTS309 , USINGU* ; TT ; : IFPS< >0THENGOSUB800 : PRINTSGN-62 , 

*G0 «*;-. FORX=1TO10: NEXT: PRINTGGN-62, 
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730 DB=-TT: NB=INT! DB/100): F0RT=793T0921STEP64: FORY=0TO14" 

7aBQ R ! NT ! T r Y '' "^ NEXT: NEXT: IF - DB>0THENR ETURNELSEIFNB>12THENNB=12 
74B.S-1: U=0: FORB-1TONB: U=U+1: F0RX=43+U.3T 050+0*9: SET(X 4S-S*2 ) 

NEXT: 1FU=3THENU=0: S=S+1: NEXTELSENEXT ' M - 

750 IFNB=12THENGOSUB780: GOTO720ELSEPRINT3GN-62, 

*GO !";: FORX=1TO10: NEXT: PRINT@GN-B2, 
' ; : RETURN 

770 TT=TT+WW: IFTT >=CPTHENPS= 1 : GOTO720ELSEPS=0: GOTO720 
780 FORY=1TO10: PRINT S933, 

*«* PfiRT FOR SALE **" ; : FORX=1TO100: NEXT: PRINT$939, STRINGS! 19, * ** ) ; : 

FORX=1TO50: NEXT: NEXT: PRINT S933, STRINGS! 19, - *);: PS=- 1 : 

PR-PR- 1: RETURN 
800 REM * CONSTRUCTION PRIORITIES » 
810 IFPS=-lfiNDPR<lTHENGOTO2100ELSEONPRGOSUB10B0, 1100, 1200, 1300, 1400, 1500, 

1600, 1700, 1800,2000 
820 IFPS=-1THENTT=TT+UL!PR): CP=UL! PR)ELSETT=TT-UL! PR): PR-PR+1: 

CP=UL!PR) 
830 PRINT @875 , PTS! PR ) ; STRINGS! 10-LEN! PTS( PR )),*.•) ; USINGUS ; UL! PR ) ; : 

PRINT@933, PTS! PR+1); STRINGS! 10-LEN! PTS! PR+D) , * . " );USINGUS;UL!PR+1 ) ; : 

PS=0 
840 FORX=1TO10: PRINT&303, 

** TRRDE *" ; : FORY=1TO50: NEXT: PRINT @309, USINGUS ; TT ; : FORY=1TO50: 

NEXT: NEXT: RETURN 
1800 REM * JACKS * 
1010 IFPS=-1THEN1020 ELSEX=41 : FORY=10TO13: SET!X,Y): SET!X+34,Y): 

SET!X+1,Y): SET!X+35,Y): IFY=13SET!X- 1, Y): SET!X+2,Y): SET ! X+33 , Y ) : 

SET!X+36,Y): RETURNELSENEXT : RETURN 
1020 X=41: FORY=10TO13: RESET(X,Y): RESET! X+34 ,Y ): RESET!X+1 , Y ) : 

RESET !X+35,Y): 1FY=13RESET!X-1 , Y): RESET! X+2,Y U RESET ! X+33 , Y ) : 

RESET !X+36,Y): RETURNELSENEXT: RETURN 
1100 REM * CHASSIS * 
1110 IFPS=-1THEN1130 ELSEF0RX=34T086: IF!X<40 >OR! !X>43ANDX<74 ) )0R!X>77 ) 

THENSET ! X , 1 1 ) : NEXTELSENEXT 
1120 F0RX=38T073: IF!X<46)0R!X>71 )THENSET! X, 10) : NEXT: RETURNELSENEXT: 

RETURN 
1130 FORX=208T 0237: PRINT^X," * ; : GOSUB1010 : RETURN 
1200 REM * ENGINE * 
1210 F0RY=1T03: X=0: GOSUB1240 : NEXT: F0RX=1T018: Y=2: GOSUB1240 : 

NEXT: F0RX=3T015: Y=l: GOSUB1240 : NEXT 
1220 F0RX=4TO13: FORY=0TO3STEP3: IFY=3RNDX=4THENNEXT : NEXTELSEGOSUB1240 : 

NEXT: NEXT 
1230 IFIN=0THENFORX=40TO44: SET!X,10): NEXTr RETURNELSEIN=0 : 

RETURN 
1240 IFPS=-1THENUX=35+X: UY=7+Y: RESET ! UX , UY ) : PX=4+X: PY=38+Y : 

SET ! PX , PY ) : RETURN 
1250 UX=35+X: UY=7+Y: SET!UX,UY): PX=4+X: PY=38+Y: RESET ! PX , PY ) : 

RETURN 
1300 REM * DRAW UAN OUTLINE * 
1310 IFPS=-1THEN1370 ELSEF0RX=5BT085: FORY=4T0B: SET!X,Y): NEXT: 

NEXT: SET! 55,5): F0RX=54T08BSTEP32: SET!X,B): NEXT: SET! 55, 6) 
1320 F0RX=34T087: SET!X,7): NEXT: F0RX=32T088: FORY=8TO10: SET!X,Y): 

NEXT : NEXT : F 0RX=43T 07 : SET ! X , 1 1 ) : NEXT 
1330 F0RX=39T073STEP34: RESET!X,9): RESET! X+l , 9): RESET!X+2.9 ) : 

RESET!X+3,9): RESET ! X+4 , 9 ) : NEXT 
.1340 F0RX=37T045: RESET !X, 10): NEXT: FORX=72T079: RESET !X, 10): 

NEXT: F0RX=34T03B: SET! X, 11): NEXT: FORX=81T08B: SET! X, 11): 

NEXT 
1350 F0RX=37T048: RESETCX.ll): NEXT: FORX=71TO80: RESET!X,11): 

NEXT: FORX=41T075STEP34: F0RY=9T011: SET!X,Y): SET!X+1,Y): 

NEXT: NEXT 
1360 F0RX=57T065 : RESET ! X , 5 ) : NEXT : F 0RX=56T0B5 : RESET ! X , 6 ) : 
NEXT: FORX=55T065: RESET!X,7): NEXT: RETURN 
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1370 FORX=1S438TO15630STEP64: F0RM=lTO31: P0KEX+M,32: NEXT: NEXT: 

PS=1: GOSUB1080 : GOSUE1100 : GOSUB1200 : RETURN 
1400 REM * WHEELS * 
1410 1FPS=-1THEN1450 ELSEFORX=1606ETO 16086: P0KEX,32: NEXT: F0RX=6T033: 

RESET (X, 36): NEXT 



FORX=40TO74STEP34: FORY=10TO13STEP3: SETCX.Y): SETCX+l.Y): 

SETCX+2,Y): SETCX+3.Y): NEXT: NEXT: FORX=40TO74STEP34: F0RZ=1T04: 

F0RY=llTO12: RESET C X+Z , Y ) : NEXT: NEXT: NEXT 

F0RX=38TO72STEP34: F0RY=11T012: SETCX.Y): SETCX+l.Y): SETCX+6,Y): 

SETCX+7.Y): NEXT: NEXT 

F0RX=39TO73STEP34: FORY=1T05: RESETCX+Y,9): NEXT: NEXT: 

RETURN 

F0RX=38TO72STEP34: FOPZ=0TO7: FORY=10TO13: RESET ( X+Z , Y ) : 

NEXT: NEXT: NEXT: PS=1: GOSUB1000 : XX=1: GOSUB270 : XX=0: 

RETURN 

REM * RADIO * 

1FPS=-1THEN1S20 ELSEFORY=0TO5: RESET 1 27, 38+Y ): SETC50, 1+Y ) : 

NEXT: RETURN 

FORY=0TO5: RESET C 58, 1+Y ): SET C 27 , 38+Y ) : NEXT: RETURN 

REM * ORNFlMENT * 

IFPS=- 1THEN1620 ELSEPRINT3144 , CHRSC 48) ; : PRINTS848 , * * ; : 

FORX=30TO86STEP56: FORY=0TO4STEP2: SETCX+Y,10): RESET C X+Y+ 1 , 10 ) : 

NEXT: NEXT: F0RX=32T041: RESETCX,38): NEXT: RETURN 

PRINT»144, CHRSC 188); : PRINT@848, CHRSC 48 ) ; : FORX=30TO30STEP60: 

RESETCX.10): NEXT: SETC33,10): SETC35,10): SETC87.10): XX=1: 

GOSUE300 : XX=0: RETURN 

REM * UEMTS * 

1FPS=-1THEN1720 ELSEFORX=912T0914: PRINT^X," ";: NEXT: FORX=850TO8S2: 

PRINT fax," "; : NEXT: F0RX=47T051STEP2: RESETCX,9): NEXT: 

F0RX=68TO72STEP2: F0RY=6T07: RESET CX,Y): NEXT: NEXT: RETURN 

FORX=47T051STEP2: SETCX,9): NEXT: F0RX=68TO72STEP2: FORY=6T07: 

SETCX.Y): NEXT: NEXT: XX=1: GOSUB310 : XX=0: RETURN 

REM * WINDOW * 

IFPS=-1THEN1820 ELSEF0RX=76'i 083: FORY=6T07: RESETCX,Y): 

NEXT: NEXT: RETURN 

F0RX=76TO83: F0RY=6T07: SETCX.Y): NEXT: NEXT: RETURN 

FORX=0TO127: RESETCX.8): NEXT: FORX=0TO2: FORY=46TO302STEP64: 

PRINT @X+Y," ";: NEXT: NEXT 

FORX=0TO14: F0RY=14T0278STEPS4: PRINTQY-X," ";: PRINT &Y+35+X, * ' % ■ 

NEXT: NEXT: fifi=i: BB=15 

FORX=8T0127: SETCX,14): NEXT: FORX=0TO21: F0RY=874T0938STEP64: 

PRINT <$>X+Y," •;: NEXT: NEXT: PRINT 3878, 

°ft ft Y U ft *";: PRINT@942. 

■ft * W I N ft *"; 

PRINT @29S , CHRSC 179 ) ; : 
PRINT <s>213 , CHRSC 140 ) ; : 
PRINT $293 , CHRSC 188 ) ; : 
PRINT@X+22,CHRSC 130); 

PRINT @Y+ 18, CHRSC 176); : 

PRINT »Y +38 , CHRSC 176 ) ; 

PRINT9Y+39 , CHRSC 176 ) ; : 

PR1NT3X+36 , CHRSC 128 ) ; : 

PRINT 3Y+ 19, CHRSC 179); : 

PRINT @Y+37, CHRSC 176); : 
PRINT ©X+20, CHRSC 140); : 



1420 



1430 



144Q 



1450 



1S00 
1510 

1520 
1600 
1610 



1620 



1700 
1710 



1720 

1800 
1810 

1820 
2000 

2010 

2020 



2030 PRI NT S278, CHRSC 178); : 
PRINT3228 , CHRSC 177 ) ; : 
PRINT @276, CHRSC 188); : 

2340 PRINT @X+20 , CHRSC 32 ) ; : 
PRINT 3X+38, CHRSC 131 ) ; 
PRINT $Y +36 , CHRSC 176 ) ; 

2050 PRINT 3X+38, CHRSC 179); 
PRINT @Y +22, CHRSC 176); 

2060 PRINT @X+ 19 , CHRSC 131 ) ; 
PRINT QX+37 , CHRSC 140 ) ; 



PRINT 321 1 , CHRSC 178 ) ; : 
PR1NT»230 , CHRSC 140 ) ; : 
X=192: Y=256 
: PRINT @X+37 , CHRSC 32 ) ; : 

PRINT 3Y+21 , CHRSC 176 ) ; : 



PRINT3X+22 , CHRSC 178 ) ; 
PRINT @Y+36 , CHRSC 179 ) ; 
PRINT »X +-38 , CHRSC 32 ) ; : 
PRINT3Y+38 , CHRSC 188 ) ; 
PRINT 3Y+20 . CHRSC 176 ) ; : 



2870 PRINT @X+21 , CHRSC 32 ) 

PR1NT@Y+21, CHRSC 188); : F0Rft=flftTOBBSTEP3: PRINT@X+45+A, " ";: 
PRINT @X+46+ft , * m ; : PRINT@X+47+ft , * * ; : NEXT : fift=RA+l : BB=BB+ 1 : 
IFRR=3THENflfi=0 : BB=BB-3 

2080 GOT 02030 
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2100 CLS: PRINT CHRS( 23): PRINT: PRINT 
2110 PRINT" YOUR BILLS HRUE EXCEEDED? 

YOUR CfiPRClTY TO REPAY. t 
YOU BRE INSOLVENT \\ \ H " 
2120 PRINT: PRINT 

PLAY RG ATN ? i Y/N ) " ; 
2130 RS="*: RS=INKEYS: 1FR*=* "THEN2130 ELSEIFCRSO'Y" )ANDC ASO"N* VTHEN2100 
ELSEIFRS="Y"THENRUN 



1 REM ** PROGRfiM TO JOIN TWO CO-ORDINATES ** 

2 REM ** PROGRAM NAME "CONNECTX/BAS" ** 

3 REM ** AUTHOR ROBERT ft SUNNERS , 26 SUNCROFT ST . , 

4 REM ** MT. GRRURTT, BRISBRNE 4122 07 349 2598 

5 CLS 
100 1NPUTX1 
110 INPUT Yl 
120 INPUTX2 
130 INPUT Y2 

150 1FRB5CX2-X1 >>RBSCY2-Y1 "JTHEN170 

160 ST=SGN(Y2-Yi:>: X=X1: FORY=YlTOY2STEPST : X=X+(X2-X1 )/RBSC C Y2-Y1 ) ) : 

SET(X,Y): NEXT: GOTO 180 
170 ST=SGN(X2-X1): Y=Y1: F0RX=X1T0X2STEPST : Y=Y+C Y2-Y1 J/RBSC ( X2-X1 ) "> : 

SETCX.Y): NEXT 
180 GOTO1B0 



1 REM ** PROGRRM TO JOIN TWO CO-ORDINRTES ** 

2 REM ** PROGRRM NAME -CONNECTR/BRS" ** 

3 REM ** RUTHOR ROBERT R SUNNERS, 26 SUNCROFT ST 

4 REM ** MT. GRRURTT, BRISBRNE 4122 07 349 2598 

5 CLS 

100 INPUTXl: Xl=INT(Xl/2) 

110 1NPUTY1: Yl=lNTCYl/3) 

120 INPUTX2: X2=lNT(X2/2) 

130 INPUTY2: Y2=INT(Y2/3) 

150 IFRBSCX2-X1 )>ABStY2-Yl )THEN170 

160 ST=SGN(Y2-Yi:>: X=X1: FORY=Y1TOY2STEPST: X=X+CX2-X1 VABSU Y2-Y1 ) ) : 

PRINT @X+1NTCY+.5;*B4,CHR*( 42) ; : NEXT: GOTO180 
170 ST=SGN(X2-X1): Y=Y1: F0RX=X1T0X2STEPST : Y=Y+(. Y2-Y1 VABSC ( X2-X1 ) ) : 

PRINT$X+INT(Y+.5)*64,CHRS(43); : NEXT 
180 GOTO180 



•In view of thQ high proportion of readers who are now subscribing to the 
monthly cassette edition, the tape index will be included as a regular part 
of the Magazine. )• 

-=*** FOR CUP CASSETTE SUBSCRIBERS ***=- 

ISSUE S MAY 1980 

nil this month's programs, with the exception of Submarine Attack, have been 
recorded twice. Ai 1 Level I programs are on side 1, and a> 1 Level tl 
urograms are an side 2. 



% 



PROGRAM 

Space Drive L1/1SK 

Sub Attack L1/4K 

Super Sizzlsr L2/16K S 

Household ftccnxs L2/1BK H 

Tic Tac Toe L2/4K T 

Tria/Bas L2/4K G 
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We at M1CRO-B0 are pretty proud of our record. This is our sixth issue. We 
are half a year old, and have already become the leading software magazine 
in fiustrolia. We have published over 40 major pieces of software and four 
hardware projects, at a cost of *12. (Half of the annual subscription). Our 
circulation is growing faster than ewer. We have created avienues for our 
readers* to make their hobby profitable, where none existed before. We have 
created a sister company, MICRO-88 PRODUCTS, to further the interests of our 
readers, bringing them quality software and '80 add-ons at fair prices, and 
returning a fair portion of the proceeds of this venture to the readers who 
author the material sold. We are determined to go on to bigger and better 
things in the future, convinced that the TRS-80 and the System 80 are the 
best persona) computers available, both in computing power, and in simple 
do I I ar ual ue . 



DEC ' 78 

Super Mastermind 

Digital Clock 

Snake 

Mer ge 

Loader 

Ulord processor 

Cassette Mod. 



JRM ' 80 

Ricochet 

Frustrat ion 

Hangman 

Life 

Inventory 

Monitor in BfiSIC 



FEB ' 80 

Hangman mk II 

fimaz in 

B iorythm 

Files 

Set 2 

Light Pen 

flaw Monitor in BfiSIC 



flfiR ' 88 

Learning Nim 

Lunar Lander 

Ricochet mk II 

Invaders 

Random number tests 

F i oppy Disk mod. 
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Hor-se race 

Or. e armed bandit 

Bandit 

Krazy-Kat 

Slav ie-maker 

Lower case enable 
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I 'S N O W T H E S L E 



□UEEnSLflnD DISTRIBUTOR 



F O R 



MICRO-80 



single issues 



# 



subscriptions 



miCRD~aa products 



DEALER ENQUIRIES WELCOME 
FOR FURTHER INFORMRTION 



PHONE 

GARS' MC GREGOR 

OR TONV MELIUS 

ON <87> 376-2191 



OR WRITE TO 
RVMHC SOFTWARE 
P. O. BOX 69 
SPRING HILL 40OO 
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LEVEL II ROM 
REFERENCE MANUAL 

by Edwin Paay 
Published by MICRO-80 PRODUCTS 

Written by Eddy Paay, the LEVEL II ROM REFERENCE MANUAL is the most 
complete explanation of the Level II BASIC interpreter ever published. 

Part 1 lists all the useful and usable ROM routines, describes their functions 
explains how to use them in your own machine language programs and notes the 
effect of each on the various Z 80 registers. 

Part 1 also details the contents of system RAM and shows you how to intercept 
BASIC routines as they pass through system RAM. With this knowledge, you can 
add your own commands to BASIC, for instance, or position BASIC programs in 
high memory— the only restriction is your own imagination! 

Part 2 gives detailed explanations of the processes used for arithmetical 
calculations, logical operations, data movements, etc. It also describes the various 
formats used for BASIC, SYSTEM and EDITOR/ASSEMBLER tapes. Each section 
is illustrated by sample programs which show you how you can use the ROM 
routines to speed up your machine language programs and reduce the amount of 
code you need to write. 

The LEVEL II ROM REFERENCE MANUAL is intended to be used by machine 
language programmers. It assumes a basic understanding of the Z 80 instruction 
set and some experience of Assembly Language programming. But BASIC 
programmers too will benefit from reading it. They will gain a much better insight 
into the functioning of the interpreter which should help them to write faster, more 
concise BASIC programs. 
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